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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS IS A POP-11723 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF A TSVOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11//23 SYSTEM 
(Q-BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNJSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 

RUNTIME SCRVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XxDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDOP+ USER'S MANUAL. THERE IS A BRIEF — OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMEN 


1.2 SYSTEM REQUIREMENTS 


POP-11/723 PROCESSOR AND MEMORY 

CAUTION:OIAGNOSTIC REQUIRES 32k WORDS OF MEMORY 

(28K USEABLE AND 4K RESERVED FOR I/0 PAGE) 

TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

POP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDOP-11 DIAGNOSTIC LOADER/MONITOR (XXDP- ) 


1.53 RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XxXDP+ USERS MANUAL; DOCUMENT NUMBER AC -F 348E -MC 
DATE: 14 JULY 1980. 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK -TSV05-UG-001 
DATE: AUGUST 1982 


3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK -TSVOS-TM-O01 
DATE: AUGUST 1982 


4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK -TSVOS-IN-0O1 
DATE: AUGUST 1982 


1.4  OIAGNOSTIC HIERARCY PRER-QUISITES 


FUNCTIONAL PDP-11/23 CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXxDP- ) 


El 
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1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

ot La BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA,CVTSBA AND CVTSCA HAVE SUCESSFULLY RUN. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XxDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND | EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE OIAGNOSTIC WITHOUT INITIALIZING 

CONT INVE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *C) 
PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY! ) 
ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 


CONSIDERED TO BE ACTIVE AT START TIME 


DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE OIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE es sO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START 


2.1.1 OPERATOR COMMANDS 


a TSVOS DIAGNOSTIC IS A PDP-11/23 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM, ALL_ LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
CHQUS XXDP+ USERS MANUAL ,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC XxXDP MEDIA 


.R vTSO0?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CvTSO-B-0O 

#¢eeTSVOS LOGIC DIAGNOSTICeeee 

UNIT IS TSVOS 


>DR 


Fl 


USER DOCUMENTATION MACRO M1113 O06-FEB-84 18:04 SEQ 005 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE Sw. TCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 


SWITCH EFFECT 

/TESTS:. IST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. CLIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - As eh LES 7-10 


THIS LIST WILL CAUSE TESTS 1,5,.7.8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 

/PASS :D0D000 EXECUTE DODDD PASSES (DODDD = 1 TO 64000) 

/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.5 


/EOP : 00000 REPORT END OF PASS MESSAGE AFTER EVERY 
DDDOD PASSES ONLY. ( 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11.,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 

START/TESTS:1-5/PASS: 1000/E0P: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILi BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF “/TESTS:1-5”. 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS CWITCH. FLAGS 


Gl 
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ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER*e INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXEe INHIBIT EXTENDED ERROR REPORTS ( THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) © 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


TOR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XxXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE : IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) ?” 

YOU MUST ANSWER “Y” AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XxXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE OIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A "N” (NO}> RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 
RUN USING THE DEFAULT VALUES FOR ALi QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE; 
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TSBA/TSOS +* 172520, VECTOR = 224 


ON A “Y” CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS ~~ 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A “(D0)” INA wee INDICATES THAT A DECIMAL .NUMBER I[S 
REQUIRED 4S A _ RESPONSE. “(0)” INDICATES AN OCTAL NUMBER_IS BEING 
SOLICITED. AN “(L)” INDICATES THAT A LOGICAL RESPONSE IS TO BE... MADE: 
“y" FOR YES, “N” FOR NO. 


® UNITS (D0) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADORESS OF THE 
TSBA/TSOB REGISTER>» 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR» 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CCONTROLLERS) SPECIFIED IN THE “® UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSVOS CONTROLLERS PER 11/25 AND ® TO 2 ORIVES PER CONTROLLER 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HAROWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE SW (i) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE ¥ TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (1) N ? <TYPE “Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. >» 


2.6 EXTENDED P-TABLE DIALOGUE 
WHEN YOU ANSWER IHE HARDWARE QUESTIONS, YOU ARE BUILDING ENIRIES 
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IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR ae 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH A 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVIC: WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT yy VARY AMONG UNITS CALLED THE 


Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 


TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 
® UNITS (0) ? 8<CR> 


UNIT 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR>» 
Q-FACTOR (0) 0 ? 1<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR>» 

UNIT 


3 
CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR>» 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? «CR» 


UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? «<CR> 


UNIT 6 
CSR ADDRESS (¢ 


0) ? 160000<CR>» 
SUB-DEVICE @ (0) ? 5S<CR» 
Q-FACTOR (0) 0 ? <CR> 
ae 
CSR ADDRESS (0) ? 160000<CR>» 
SUB-DEVICE @ (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1«<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE ® (0) ? 7<CR> 
Q-FACTOR (0) 1 ? «CR» 


J] 
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NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON -DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET’S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


FEATURE. 
® UNITS (0D) ? 8<«CR>» 
UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0,1<CR>» 
Q-FACTOR (0) 0 2? 1,0<CR> 
UNIT 5 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ® (0) ? 2-S<CR> 
Q-FACTOR (0) 0 ? O«CR>» 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR “DDORESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 3. 4 AND 5S WERE SPECIFIED. (CIF THE SUB-DEVICE WERE SPECIFIED 
By ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 

BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


® UNITS (0) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O-7<CR>» 
Q-FACTOR (0?) 0 ? S.3<Occceks het 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
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2.7 QUICK START-UP PROCEDURE (XxXDP>+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP-+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


TYPE “START” 

ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
ANSWER ALL THE HARDWARE QUESTIONS 

ANSWER THE “CHANGE SW” QUESTION WITH “N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.5 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.5). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXx 
ERROR MESSAGE 


» WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = O - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GO00/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, “IBR” OR “IXE” FLAGS ARE SET (SECTION 2.5). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


Ww 


vu OO WW & 


Ll 
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BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


ts a: oth IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 

yo ee REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: O16 FIFO EXERCISER TEST 
CvTSO HRD ERR 01610 ON UNIT OO TST 016 SUB 002 PC: 040624 
FIFO STATUS CIN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD 08: - DESIGNATOR <BIT @> 
PARERR<15> IEOT <1l2> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIOENT<11> IWER <8> IONL<S> IFBY<1> 
TRESVi<15> ICER <10> ISPEED<7> ILOP<4> IFPT<O> 

TAPE BUS SIGINALS IN WORD 09: 
DATMIS<7> ILW<6> OQOUTRDY<S> INRDY<4> 

MESSAGE BUFFER ADDRESS = 047352 

MESSAGE BUFFER CONTENTS: 

WORD #0 EXPD: 100020 C 





EXPO: 000000 

WORD #1 EXPD: 000012 000000 
WORD @2 EXPD: 000000 000000 
WORD #3 EXPD: 000010 000000 
WORD 04 EXPD: 000000 000000 
WORD @S EXPD: 000000 000000 
WORD #6 EXPD: 000000 000000 
@7 EXPD: 000000 

WORD @8 EXPD: 070217 : 000000 
WORD @9 EXPD: 000074 : 000040 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE ORIVE,IN THIS 
a ne ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
Y ve. 


CVTSO HRD ERR 00159 ON UNIT O00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR = 100214 

TSSR BITS SET: SC,SSR 

TERMINATION CLASS CODE = UNRECOVERABLE ERROR 

PACKET ADORESS = 026420 


PACKET WORD @ = 000010 


PACKET WORD @ 
PACKET WORD @ 


ERROR MESSAGE EXAMPLE 5 


M1 
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THIS ERROR SHOWS THAT THE MOTION bit DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CvTSO HRD ERR 00121 ON UNIT OO TST 001 SUB 002 PC: 923306 
MOT BIT (XSTO) NOT SET DURING REWIND CEXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 KOR: 000200 


4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OF TEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (POP-1,723) 


DR>STA/FLA: PNT : HOE 

UNITS (0) ? 1 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR» 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE OIAGNOSTIC. THE COMMAND HAS TwO 
cake ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” AND "HALT ON 


TST: 001 SKIP TAPE MARKS TEST 

TST: O02 NO-OP AND Sh ot ha TEST 

TST: OO3 ERASE AND OPERATION INCOMPLETE TEST 
TST: 004 DATA PARITY TEST 

TST: OOS TEST OF OPERATIONS AT EOT TEST 

TST: 006 EXTENDED-MODE FUNCTIONS TEST 

TST: O07 RECORD BUFFERING TEST 

TST: 008 FUNCTION TIMING TEST 


O ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT HAS 
BEEN SPECIFIED WiTH THE “/PASS:” SWITCH. 


PROGRAM RUN TIMES 
THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 


TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11/723 
PROCESSOR WITH A LA34 CONSOLE. 
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THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. 


INHIBIT ITERATIONS QUESTION WITH A “Y” (YES). 


TEST N/T NUMBER DEF 
NUMBER SECS. ITER a es 


@Onaeuvawhre 
~ he Pe Pe ee 


Pe oe pe pe ee fl) 
oo°o°”: 


THE TIMES REQUIRED TO RUN TES'S 1 THROUGH 37 IN ONE COMMAND: 


Q.¥. 15 SECONDS 
DEF ALT 16 SECONDS 


5.0 DEVICE INF ONMATION TABLES 
WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
THE SUPERVISOR REGUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES : 

CHANGE HW CL) ? 


® UNITS (0) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED» 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER» 


VECTOR (0) 224 ? «ENTER ADDRESS OF INTERRUPT 
: VECTOR» 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGIC 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UWP TO FOUR UNTTS 


SELECTED FOR TESTING. 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 


IN THE 


IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED By 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 


aL 
CAN 


OF 


r 
5E 


UNIT 


VSER DOCUMENTATION 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


~ 


os 


be 
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CHANGE SW (lL) ? 


INHIBIT [ITERATIONS (L) N ? 


6.0 TEST SUMMARIES 


: WRITE TAPE MARK RETRY 


THIS TEST VERIFIES PROPER ee OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
REVERSE, ERASE, WRITE TAPE MARK). 


: SKIP TAPE MARKS 


THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
UNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
STOP CESS) AND ENABLE TAPE MARKS STOP OFF BOT CENB) BITS SPECIFIED 
BY THE WRITE CHARACTERISTICS COMMAND. 


: NO-OP ("CLEAN TAPE”) AND INITIALIZE 


THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE”) AND INITIALIZE 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


: ERASE AND OPERATION INCOMPLETE 


VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 


: DATA PARTTY TEST 


THIS TEST VERIFIES THAT THE DATA PARITY CIRCUITRY IN BOTH THE CONTROLLER AND THE 
TRANSPORT IS OPERATING PROPERLY BY FORCING DATA RECORDS WITH WRONG PARITY TO BE 
WRITTEN ONTO TAPE AND CHECKING THE RESULTS OBTAINED WHEN THE DATA IS READ. 


: OPERATIONS AT EOT 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


: EXTENDED MODE FEATURES 


THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
a CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 


REWIND WITH IMMEDIATE INTERRUPT 


USER DOCUMENTATION 


TEST 


e 
é.. 
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IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 


8: RECORD BUFFERING 


THIS TEST ey dA THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEX AT ANO PROPERL Y 


T COMMANDOS, OPERATES PROPERLY Is 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7196 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
CAS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ ANDO WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. 


TEST 9: FUNCTION TIMING 


THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
RECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
ANDO HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 

SKIP TAPE MARKS COMMAND WITH A COUNT OF 6 OF MORE, OPERATE THE 
TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES Br 
TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 
DIFFERENT TEST RECORD LENGTHS. 


7.0 MAINTENANCE HISTORY 
REVISION A - MARCH 1982 
REVISION 6 - APRIL 1985 
- FIXEO TWO PROBLEMS, ONE IN TEST 1 AND THE 
OTHER IN TEST 8 


REF. DOYLE TO GRASKY “TSVOS CVITSDA DIAGNOSTIC 
PATCH”; 23-DEC -82. 


a 
c. 


TSV2 - PROGRAM HEADER MACRO M1115 06 FEB 84 18:04 SEQ 016 


2 TITLE TSV2 - PROGRAM HEADER 
: .SBTTL PROGRAM HEADER 
10 -MCALL SVC 
11 300000 svc s INITIALIZE SUPERVISOR MACROS 
le ~ENABLE LC 
13 -NLIST ®BEX,CNOD 
19 ©O0000 -ENABL ABS,AMA 
20 002000 . 2000 
2i 002000 BGNMOD TSV2 
002000 TSVe:: 
22 
es °° 
24 ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
= 3 ine DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
os 
2? 
28 002000 POINTER BGNSW,®BGNSF T,BGNAU,BGNDU,BGNRPT 
29 002000 HEADER Cv vTSO.8, Oo, 655. Oo 
002000 LSNAME: : ;OIAGNOSTIC NAME 
002000 102 -ASCII /C/ 
002001 126 -ASCII /v/ 
002002 124 -ASCII /T/ 
0020053 123 .ASCII /S/ 
002004 104 -ASCII /0/7 
002005 000 BYTE 0 
002006 000 BYTE 0 
002007 000 BYTE 0 
002010 LSREV:: sREVISION LEVEL 
002010 102 ASCII /8/7 
002011 LSDEPO: : 30 
002011 060 ASCII /0/ 
002012 LSUNIT:: ;NUMBER OF UNITS 
002012 000000 . WORD 0 
002014 LSTIML:: sLONGEST TEST TIME 
002014 001217 . WORD 655. 
002016 LSHPCP:: ;POINTER TO H.W. QUES. 
002016 105546 . WORD L SHARD 
002020 L$SPCP:: sPOINTER TO S.W. QUES. 
002020 105700 . WORD LsSOFT 
002022 LSHPTP:: ;PTR. TO DEF. H.W. PTABLE 
002022 002150 . WORD L $HwW 
902024 LSSPTP:;: ;PTR. TO S.W. PTABLE 
002024 002160 . WORD .$Sw 
002026 LSLADP:: s;D0IAG. END ADORESS 
002026 106404 . WORD LSLAST 
002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 . WORD ') 
002032 L$sCo:: 
002032 000000 . WORD Oo 
002034 LSDOTYP:: sDIAGNOSTIC TYPE 
002034 000000 . WOR '@) 
002036 LSAPT:: ;APT EXPANSION 
002036 000000 . WORD 0 
002040 LSOTP:;: PTR, TO DISPATCH [ABLE 
002040 002124 WORD L SDISPATCH 


002042 LS$PRIO:: ;DIAGNOSTIC RUN PRIORITY 


EQ 
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PROGRAM HEADE 


002042 000000 , 0 

002044 LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 . WOR 0 

002046 LSEXPL:: ;EXPANSION WORD 

002046 000000 : 0 

002050 LSMREV:: ;SVC REV AND EDIT @ 

002050 003 .BYTE CSREVISION 

002051 003 .BYTE CsEDIT 

002052 LSEF:: s;DIAG. EVENT FLAGS 

002052 000000 . WORD 0 

002054 000000 .WORDB O 

002056 L$SPC:: 

002056 000000 . WORD 0 

002060 LSDEVP:: ; POINTER TO DEVICE TYPE LIST 
002060 003574 -WORD LSOVTYP 

002062 LSREPP:: ;PTR. TO REPORT CODE 
002062 022744 . WORD LSRPT 

002064 LSExP4:: 

002064 000000 . WORD ¢) 

002066 LSExPSs:: 

002066 000000 . WORD 0 

002070 LSAUT:: ;PTR. TO ADD UNIT CODE 
002070 022432 -WORD LSAU 

002072 L$DUT:: ;sPTR. TO DROP UNIT CODE 
002072 022530 WORD L$OuU 

002074 LSLUN:: ;LUN FOR EXERCISERS TO FILL 
002074 000000 .WORDB O 

002076 LSDESP:: sPOINTER TO DIAG. DESCRIPTION 
002076 003402 . WORD LsDESC 

002100 L$LOAD:: ;GENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT ESLOAD 

002102 LSETP:: sPOINTER TO ERRTBL 

002102 000000 . WORD 0 

002104 LSICP:: ;PTR. TO INIT CODE 

002104 021636 -WORD LSINIT 

002106 LSCCP:: ;PTR. TO CLEAN-UP CODE 
002106 022716 -WORD LS$CI.EAN 

002110 LSACP:;: ;sPTR. TO AUTO CODE 

002110 022636 . WORD LsAUTO 

002112 LSPRT:: ;PTR. TO PROTECT TABLE 
002112 021626 . WORD LSPROT 

002114 LSTEST:: ; TEST NUMBER 

002114 000000 -WORD 0 

002116 LSOLY:: ;DELAY COUNT 

002116 000000 . WORD 0 

002120 LSHIME:: ;P TR. TO HIGH MEM 

002120 000000 . WORD 0 


TSV2 


DISPATCH TABLE 


39 


- PROGRAM HEADER 


101120 
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.SBTTL OISPATCH TABLE 


; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF 


FO 


SEQ 018 


— TEST. 


; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 9 
.WORDB 9 
LSDISPATCH: : 

-WORD Til 
-WORD Te 
-WORD T3 
-WORD 14 
-WORDB TS 
-WORD T6 
.WORDB T7 
-WORDB T8 
.WORD 1T9 


TSV2 


- PROGRAM HEADER 
DEFAULT HARDWARE P -TABL 


000200 


Ge 
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-SBTTL DEFAULT HARDWARE P-TABLE 


see 

; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
522 


BGNHW DF PTBL ;DEF AULT HARD -P-TABLE 
. WORD L 10000 -L $HW/2 

L SHW: : 

OF PTBL 
. WORD 172520 ; 1ST COF 2) REGISTERS. 
. WORD 224 ; INTERRUPT VECTOR 
eae PRIO4 ; INTERRUPT PRIORITY. 
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He 


-SBTTL SOFTWARE P-TABLE 


SEQ@ 020 


3ee 
; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


L$SwW:: 


SFPTBL:: 


TRANST 
NOITS: 


LERRMAX: : 


SFPTBL 
L10001-L$SW/e 


. WORD 
. WORD 


. WORD 
. WORD 


ENABLE TEST OF TRANSPORT(S) IF 
INHIBIT ITERATION OPTION. 

..-. O = ITERATE. 

..-NZ = INHIBIT ITERATE. 

LOCAL (PER TEST) ERROR LIMIT 
GLOBAL (PER UNIT) ERROR LIMIT 


=) 


TSv3 


20 002170 
002170 


8 
32 002170 


- GLOBAL AREAS 
SOFTWARE P - TABLE 


MACRO M1115 


06 -FEB-84 18:04 


TSV3:: 


gee 


Te 


SE@ 021 


. TITLE 


TSV3 - GLOBAL AREAS 
GLOBAL EQUATES SECTION 


TSsv3 


.SBTTL GLOBAL EQUATES SECTION 


; THE GLOBAL EQUATES SECTION “ee PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE 


EQUALS ; GET STANDARD EQUATES. 


: 
; BIT OIF INITIONS 


; 

BIT15== 
BIT14== 
BIT15== 
BITle== 
BIT11== 
BIT10== 
BITO9== 
BITOS== 
BITO7== 
BITO6== 
BITOS== 
BITO4== 
BITOS== 
BITO2== 
BITO1L== 
BITOO== 


* 
BIT9== 
BIT6== 
BIT7== 
BIT6== 
BITS== 
BIT4== 
BITS== 
BIT2== 
BIT1== 
BITO== 


; 
; EVENT 


FLAG DEFINITIONS 


; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


a 

EF .START== 32. ; 
EF .RESTART== 31. : 
EF .CONTINUE == 30. ; 
EF .NEW=-= ; 
EF .PWR=-= 3 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSVED 

A NEW PASS HAS BEEN STARTED 

A POWER -FAIL /POWER-UP OCCURRED 


6 
; PRIORITY LEVEL DEFINITIONS 


TSV3 - GLOB 


AREAS 


AL 
GLOBAL EQUATES SECTION 


33 
34 002170 


000250 


177572 
177574 
177576 
172516 


MACRO M1115 


; 

PRIO7=«= 
PRIO6=<«= 
PRIOS== 
PRIO4«= 
PRIO3=<= 
PRIO2== 
PRIOL== 
PRIOO== 


§ 
;OPERATOR FLAG BITS 


H 
EVL== 
LOT=«= 
ADR=«= 
IDU<«=2 
ISR== 
UAM== 
BOE == 
PNT == 
PRI== . 
IXE== 
IBE== 
IER== 
LOE == 
HOE == 


.SBTTL MEMORY MANAGEMENT DEFINITIONS 
;@KT11 VECTOR ADDRESS 


MMVEC= 


;#KT11 STA 


SRO= 
SR1= 
SRe2= 
SR3= 
IF NB 
; #USER 
UIPDRO= 


06 -FEB-84 18:04 


KT11 


250 


17 
177574 
177576 
172516 


1 

177602 
177604 
177606 
177610 
177612 
177614 
177616 


"OD" PAGE DESCRIPTOR REGISTORS 


177620 
177622 
177624 
177626 
177650 
177632 
177634 
177636 


Je 


TUS REGISTER ADDRESSES 
7572 , 


“I” PAGE DESCRIPTOR REGISTERS 
77600 


SEQ 022 


;DEFINE MEMORY MANAGEMENT REGISTERS 


TSv3 


MEMOR 


- GLOBAL AREAS MACRO M1113 06-FEB-84 18:04 


¥ MANAGEMENT DEFINITIONS 


Ke 


SEQ 025 


;#USER “I” PAGE ADDRESS REGISTERS 


UIPARO= 


IF NB 


;@USER 
ARO= 


.IF NB 
3; ¢SUPERV 
SIPORO= 


.IF NB 
ooh ng 


177660 


ISOR “I” 
7 


ISOR "D ” 


;@SUPERVISOR “I” 


SIPARO= 
SIPARIi= 
SIPAR2= 
SIPARS= 
SIPAR4= 
SIPARS= 
SIPAR6= 
SIPAR7= 


172240 
172242 
172244 
172246 
172250 
172252 
172254 
172256 


.IF NB 
;*SUPERVISOR “D” 
SOP 


ARO= 
SDPAR1= 
SOPAR2= 
SDPARS= 


172260 


. 


D” PAGE ADDRESS REGISTERS 


PAGE DESCRIPTOR REGISTERS 


PAGE DESCRIPTOR REGISTERS 


PAGE ADDRESS REGISTERS 


PAGE ADDRESS REGISTERS 


Le 
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MEMORY MANAGEMENT DEFINITIONS 


SDPAR4= 172270 
SOPARS= 172272 
SOPAR6= 172274 
SDPAR7= 172276 


. ENDC 

.ENOC 

;@KERNEL “I” PAGE DESCRIPTOR REGISTERS 
i7e KIPDRO= 172300 
172302 KIPDRiI= 172302 
172304 KIPDR2= 172304 
172306 KIPDORS= 172306 
172310 KIPOR4= 172310 
172312 KIPORS= 172312 
172314 KIPOR6= 172314 
172316 KIPOR7= 172316 


; NB 
;*KERNEL “D" P 


. ENDC 
;@#KERNEL “I” PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPAR1= 172342 
172344 KIPAR2= 172344 
172346 KIPARS= 172346 
172350 KIPAR4= 1723550 
1723552 KIPARS= 172552 
172354 KIPAR6= 172354 
172356 5 gy 1723556 


;#KERNEL “D” PAGE ADDRESS REGISTERS 
KDPARO= 172360 
KDPAR1= 172362 
KDPAR2= 1723564 
KDPARS= 172366 
, KDPAR4= 1723570 
KDOPARS= 172372 
KDPAR6= 172574 
KDPAR7= 172376 
. ENDC 
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.SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 


100000 


‘ 
; SOME GENERAL EQUATES. 


ERRVEC== 
TTIVEC== 
TTICSR== 
TTIBFR== 
BOVPCR== 


4 


60 

177560 
177562 
177520 


Me 


SEQ 025 


; POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
; INTERRUPT VECTOR FOR CONSOLE INPUT 

; BUS ADDRESS OF CONSOLE INPUT 

; CONSOLE INPUT DATA BUFFER 

; BOV11 PAGE CONTROL REGISTER 


3° 
;BIT DEFINITIONS FOR TSSR REGISTER 


SC= BITiS 
BIE= BIT14 
SCE = BIT135 


T10 
HIADDR= BITSIBITS 
BIT7 


BIT6 
FATERR= BIT4!6ITS 
TERCLS= BITS!BIT2!BIT1 


3* 


;SPECIAL CONDITION 

;B8US INTERFACE ERROR 
;SANITY CHECK ERROR 
sMODIFICATION REFUSED 
s;NONEXISTANT MEMORY ERROR 
;NEED BUFFER ADDRESS 
;EXTENDED ADDRESS BITS 
;SUB SYSTEM READY 


;OFF LINE 


BIT 


sFATAL TERMINATION ERROR CODES 
; TERMINATION CODES 


a 
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 


3(XSTO) 
: 
ie 


XSOTMK= BIT15 
XSORLS= BIT14 
XSOLET= BIT13 


xSOBOT= BIT1i 
XSOEOT= BITO 


; TAPE MARK DETECTED 
;sRECORD LENGTH SHORT 
;LOGICAL END OF TAPE 
;sRECORD LENGTH LONG 
;WRITE LOCK ERROR 

;NON EXECUTABLE FUNCTION 
; ILLEGAL COMMAND 

; ILLEGAL ADDRESS 

; TAPE IN MOTION 

; TRANSPORT ON LINE 


sPHASE ENCODED DRIVE 
;WRITE LOCKED 
;BEGINNING OF TAPE 


;ENOD OF 


TAPE 


3+ 
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 


;(XST1) 
;* 
X1.0LT = BIT15S 


;DATA LATE 


Ne 
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Teves REGISTER AND PACKET Der INtt TONS 
96 040000 X1.SPARE= BIT14 s;NOT USED 
97 020000 xX1.COR «= BITIS ;CORRECTABLE DATA ERROR 
98 017375 X1.MBZ = BIT BIT11-BIT10-B1T9+BIT7 «BIT6-BIT5 -BIT4-BIT3-BIT2+BITO ;ALWAYS O 
99 0Uv490 X1.RBP = BI’ sREAD BUS PARITY ERROR 
ny 000002 KX1.UNC = BiTl SUNCORREC TABLE DATA OR HARD ERROR 
102 ;° 
105 :;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
- 3(xST2) 
3; * ‘ 
106 100000 X2.0PM =« he, Man OELK IN PROGRESS (TAPE MOVING) 
107 040000 X2.RCE = BIT1 AM CHECKSUM ERROR 
108 035400 K2 . SPARE « ei11$-err12-81f11 .8rT9-8iT6 ;NOT USED BY TSVOS CALWAYS=<0) 
109 002000 x2.WCF = BIT1O ;WRITE CLOCK FAILURE CFIFO NOT EMPTIED BY TRANSPORT) 
110 000200 X2.ExXTF = BIT7 ; IF vAIte CHAR CMD THEN = EXTENDED FEATURES ENABLED 
111 000100 x2.BUFE = BIT6 ;IF WRITE CHAR CMD THEN = BUFFERING ENABLED 
li2 000077 x2.REv = 000077 ;IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
1 000007 X2.UNIT = BIT2-BIT1+BITO. ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
115 3° 
116 ;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
a ;(xST3) 
Be 
119 177400 X3.MDE = he sMICRO-DIAGNOSTIC ERROR CODE 
120 000200 x3.SPARE= BIT? ;NOT USED By TSVOS 
i2i 000100 x3.0PI «= BIT6 OPERATION INCOMPLETE 
122 000040 x3.REV = BITS ;REVERSE 
i235 000020 x3.TRF «= BIT4 ; TRANSPORT RESPONSE FAILURE 
1<4 000010 x3.0CK «= BITS ;DENSITY CHECK 
125 000006 X3.—8Z2 *BIT2-BIT1 ;NOT USED ALWAYS O 
126 000001 x3.RIB = BITO ;sREVERSE INTO BOT 
i2?7 
i286 3° 
i29 ;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
iat ;(xST4) 
a« 
i382 100000 x4.HSP «= BITLS ;4IGH SPEED 
i385 —  §40000 x4. RCE «= BITI4 rShanes COUNT EXCEEDED 
144 | 020000 x4.7Sm™ «= BIT1S5 ANSPORT SPECIAL MODE 
135 - 01 7400 x4.™BZ = BIT12-61711-61110-8179-B1T8 ;NOT USED ALWAYS O 
tt 000377 x4 WRC += 0003577 ;WRITE RETRY COUNT FIELD 
iss i? 
139 ; 
my ;TSSR TERMINATION CODES (BIT 0-2) 
5 
142 3° 
143 
144 000006 TSREJ= S$e2 ;COMMAND REJECTED 
co 000006 UNREC= 6  UNRE COVERABLE ERROR 
147 7 
148 3 
149 ;DEVICE REGISTER OFFSETS 
i150 ; ry 
151 _ 
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I 


11 
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5 
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b 4 


SEQ 027 


1TSOB/TSBA REGISTER 


1 1TSOB/TSBA REGISTER HIGH BrTF 
sTSSR REGISTER 
sTSSR REGISTER WIG. BYTE 


s TSOB ADDRESS BIT DEFINITIONS 


i- 
A1716 


* BITI-BITO 


sADDRESS BITS 17:16 ARE IN 1:0 


3° 
s COMMAND DEFINITIONS 


5° 
P .GETSTAT * 17 ;GET STATUS 
P. INIT * 15 s INITIALIZE 
P . CONTROL * le sCONTROL COMMANDS 
PF T * ii F T 
P .POSITION *« 10 sPOSITION 
.WRTS «= 6 ;SUBSYSTEM WRITE 
P WRITE » > sWRITE 
P .WRTCHAR 2 4 ;WRITE CHARACTERISTICS 
P .READ *= 1 sREAD 


3° 
; COMMAND PACKET HEADER WORD BIT DEFINITIONS 


P.ACK - BIT15 sBUFFER AVAIL FOR CONTROLLER 
P.CvC = BIT14 sCLEAR VOLUME CHECK 
P.OPP = BITLS oe a SEQUENCE OF DATA BITS 
P.SWB = BITl2 sSWAP BYTES IN MEMORY 
P.MODE = BIT11!BITIO!ATT9!BITS sEXTENDED COMMAND MODE FIELD 
PIE tT? s INTERRUPT ENABLE 
P.FMT« BIT6!BITS ;PACKET MEADER TYPE (ALWAYS<0) 
P.CMD 37 sMAJOR COMMAND FIELD 
3° 
; CONTROL COMMAND MODE CODES 
ie 
PC .RELEASE « 00256. sRELEASE BUFFER 
PC .REWINO * 14256. sREWIND 
PC .NOOP * 2¢256. 3NO - | 
PC. IEREW » 40256 sREWIND IMMEDIATE INTERRUPT 
PC .ERASE * 50256 sSECURITY ERASE 


3° 
; CONTROLLER RAM DEFINITIONS 


sREGISTER 


167 sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
200 sCHARACTERISTICS IO DATA END RAM ADDRESS 
201 sCOMMAND PACKET BEGIN RAM ADDRESS 

210 sCOMMAND PACKET END RAM ADDRESS 

215 sMESSAGE BUFFER BEGIN RAM ADDRESS 

254 sMESSAGE BUFFER END RAM ADDRESS 


DEFINITIONS IN THE MESSAGE BUFFER 


C4 


r) 
| A 06 FEB 84 18:04 SEQ 02 
TVds RPE PETER “ARB packe PDE INT tons 
210 ; 
11 } 
ele se EXTENDED STATUS REGISTER 0 (WORD 4) 
e215 000006 sities : SEXTENDED STATUS REGISTER 1 (WORD 5) 
214 ores xST2e2 10 sEXTENDED STATUS REGISTER 2 (WORD 6) 
Ste 900014 XST3e= 12. sEXTENDED STATUS REGISTER 3 (WORD 7) 
' A 
217 000016 XST4e= 14, sEXTENDED S 
8 ' 
351 {OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
33 : 
224 . R CHARACTERISTIC DATA POINTER 
225 000002 An ee HIGH ORDER CHARACTERISTIC DATA POINTER 
Ty: toeee PKBCNT «= 6 ;NUMBER OF BYTES IN DATA PACKET 
228 . NUMBER OF BYTES IN EXTENDED DATA PACKET 
229 000010 EXBCNT=10 i NUMBE 
2 
532 ;DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
235 vi : :BYTE O 
234 000000 + -g BES iBYTE 1 
336 900002 SEL2 = 2 sWORD 2 
237 000004 SELDATA = 4 s WORD 
+44 ;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
241 + - 0 sNO -OP 
242 000000 Age - READ RAM 
es tees Pw. WTRAM 2 2 ;WRITE RAM 
545 000008 Pu RF IFO - 3 jREAD FIFO 
245 000005 Pu WIFO - ;WRITE FIFO 
246 000004 ang a 4 F . 5 sREAD STATUS 
247 000005 ange = ;WRITE TAPE CONTROL 
248 eteee Pu WEMT “t SWRITE TAPE FORMAT 
249 S00007 Pw WMISC = 10 sWRITE MISCELLANEOUS 
250 000010 Pu WNPR - 11 ;WRITE NPR CONTROL 
251 000011 Pw D22 * 20 sD0 MICROTEST 22 
aa mo 6s ENT 
® DO M™ 
254 000022 ou. OSs $$ }OISABLE MICROTEST 11 AND 13 ; 
236 000024 Pw. RDEXT - 24 ;READ EXT ES 
2 
559 ;BSEL1 CODES FOR WRITE TAPE CONTROL 
260 a ‘ IFAD - FORMATTER ADDRESS 
261 000200 ae  TOTAO : BITS 1ITADO - TRANSPORT ADORESS BIT 0 
262 000100 ue TiTAD - BITS :ITAD1 - TRANSPORT ADDRESS BIT 1 
265 eee we. ISRESV * BIT4 ;IRESVS - RESERVED @5 
565 000010 WC. TREW a + SY ‘TR. REWIND AND UNLOAD 
i . : : 
266 000004 WC. IRWU BIT2 ; IRWL 


D5 


V3. - -FEB- 
FeV as REE TEPER RRB pacne PAGER Nt TansO® FEB 84 18:04 SEQ 029 
267 000002 wc. IFEN * BIT ;IFEN - FORMATTER ENABLE 
268 000001 wc. TGO * BITO :GO 
269 
270 se 
e713 :;8SEL1 CODES FOR WRITE FORMAT 
Pe t- 
27 000200 WF . IHISP « BIT7 ;IHISP - HIGH SPEED 
O74 000100 WF .IWRT = BIT6 ;IWRT - WRITE 
275 000040 WF . IREV « BITS ;IREV - REVERSE 
27 000020 We. IWFM * BIT4 ;IWFM - WRITE FILE MARK 
27? 000010 we .IEDIT « BITS ;IEDIT - EDIT 
278 000004 WF . IERASE * BIT2 sIERASE - ERASE 
279 000002 WF. ISRESV * BIT1 sIRESV3 - RESERVED 03 
280 000001 WF. I4RESV * BITO ;IRESV4 - RESERVED 04 
281 
282 3° 
= ;BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 
he 
285 000200 MS .EXT *« BIT7 s INVERT SENSE OF EXTENDED FEATURES SwITCH 
286 000020 MS .RSFIFO * BIT4 ;RESET FIFO AND INPUT PARITY ERRORR 
287 000010 MS. .RSTAPE * BITS sRESET TAPE STATUS IN 2 FLIP-FLOPS 
238 000006 MS. ATTN * BIT2:BIT1 sATTENTION TRIGGER FIELD 
269 000001 MS.RSD * BITO ;RESET TIMER A,B THEN DELAY TIMES IN SEL2 
3° 
291 ; MS.ATTN SUBCODES 
Bg ¢ 
293 060000 MSA.NOP = O02 sNO-OP (NOTHING TRIGGERED) 
294 000002 MSA.VOL = 1e2 sSIMULATE ON-LINE/OFF -LINE TRANSISTION 
295 000004 MSA.NRAM= 202 sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
ase 000006 MSA.FRAM= 302 sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
3° 
Be ; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 
3° 
300 000200 NP .IR * BIT? s INTERRUPT REQUEST (0-1 TRANSITION) 
301 000100 NP .OUT °* BIT6 ;TAPE DATA DIRECTION OUT (O* IN) 
302 000040 NP .LOOP = BITS sENABLE TRANSPORT LOOPBACK 
208 000020 NP . WRP * BIT4 sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
3° 
a ; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
3 - 
307 
308 000200 S2.0IM «= BIT? ;WORD 09 BYTE 2 DATA IN MISS 
309 000100 S2. IW = BIT6 ; LW H 
310 000040 S2.OUTROY * BITS ; OUT RDY H 
311 000020 S2. INRDY = BIT4 ; IN RDY H 
312 000010 S2.ATIMR * BITS ; TIMER A FLAG H 
313 000004 S2.BTIMR * BIT2 ; TIMER B FLAG H 
314 000003 S2 F = BIT1-BITO ; CUNDEF INED ) 
315 100000 S1.PARIN * BITLS ;WORD @8 BYTE 1 PARIN H 
316 040000 S1. I2RESV * BIT14 ; IRESV2 
317 020000 S1.I1RESV = BIT13 ; IRESV1 
318 010000 S1.IE0T = BIT12 ; IEOT L 
319 G04000 S1.I IDENT * BIT1L1 ; IIDENT H 
320 002000 S1.ICER = BIT1O ; ICER H 
321 001000 Si. IFMK * BITS ; IFM< 
322 000400 S1.IHER = BITS ; IHER H 
323 000200 SO. ISPEED = BIT? ;WORD 08 BYTE O ISPEED H 


TSv5 


- GLOBAL ARE 


AS 


MACRO M1113 06-FEB-84 18:04 
TSVOS ‘REGISTER AND PACKET DEFINITIONS 


3; * 
;SAVE GENERAL REGS 1 TO 5 


3° 
; MACRO TO FORCE AN ERROR 


yweeeseensese 


. SBTTL 


BIT6 
BITS 
BIT4 
BITS 
BITe 
BIT1 


BITO : 
PECIAL MACROS AND OPDEFS. 


-MACRO SAVREG 


JSR RS ,REGSAV 


. ENOM 


g° 
-MACRO FORCERROR 


ea 


3EQ 0350 


oo oc os Ge Ge Ge 
32 
<% 

PFPEFr FEE 


TAG,.NOTSSR 
-NLIST 
.IIF NOF LISTALL, .NLIST 
LIST 
.IF 8 NOTSSR 
mee MOV TSSRCRS),R1 sREAD TSSR 
MOV FORCER ,.FORCER :IS ore SET? (LEAVE C BIT ALONE) 
BNE TAG ;8R IF YE 


~NLIST 
-IIF NOF LISTALL, 
LIST 
. ENOM 


-NLIST 


-NLTI 


LIST 


3° 
MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 


WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 


SO TO FORCE ERRORS AND EXIT ON 
FORCER TO 177777 


1 ERROR SET 


TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
;- 
a. tat FORCEXIT 


fa NOF LISTALL, 
LIST 


MOV 
BMI 


.IIF NOF LISTALL, 
~LIST 

. ENOM 
3? 

. MACRO TO INCREMENT ERROR COUNTS 


$33. TIF NOF LISTALL, 


“MACRO 


»NLI 


NEXT. ERRNO 


-LIST 


TAG 
~NLIST 
FORCER,FORCER 
TAG 


»NLIST 


:IS FORCER NEGATIVE? 
;B8R IF YES 


TSv3 


002170 


- GLOBAL AREAS 
SPECIAL MACROS AND OPDEFS 


000000 


ia 


MACRO M1113 06-FEB-84 18:04 


ERRNO=ERRNO>+1 
333.IIF NOF LISTALL, 
.LIST 


. ENDM 


LIST 


3¢ 
sMACRO TO PERFORM XOR 
5 


-MACRO XOR A.B 
MOV A, -CSP) 

BIC B,¢SP) 

BIC A,B 


EN=0 
.SBTTL FORCER 


FORCER:: 0 


SEQ 031 


; INITIALIZE ERROR NUMBER 


- FORCE ERROR FLAG 


THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


s FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
; - BY THE MACRO “IFERROR”). 


AN ERROR NEED NOT - 


EXIST. JUST ASSUME AND TYPE THE MESSAGE. 
. SBTTL GLOBAL DATA SECTION 


; THE GLOBAL DATA TE CONTAINS DATA THAT ARE USED 


;IN MORE THAN ONE TEST 
gee 


¢ 
;THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
;SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 


4 

EPRTSW:: . WORD 0 
UNITN:: . WORD 8) 
QvP:: . WORD 8) 
CSRADOR: : . WORD 0 
IVEC:: -WORD 224 
IPRI:: . WORD PRIO4 
TSTCNT:: . WORD 0 
LOOPCNT . WORD 0 
DEVCNT . WORD 0 
FATFLG . WORD 0 
INTRECV . WORD 0 
EXTFEA . WORD 0 
BENBSW: : . WORD @) 
EXPOD:: . WORD 0 
RECV . WORD '@) 
ERRHI . WORD 0 
ERRLO . WORD 0 
RAMDATA:: .BLKW 16. 
RAMSIZ:: . WORD 9) 


;sPRINT SWITCH 

sUNIT @ UNDER TEST. 

sQUICK VERIFY FLAG. 

sADORESS OF CSR FOR CURRENT DEVICE 
INTERRUPT VECTOR 

s INTERRUPT PRIORITY. 

sNUMBER OF TESTS RUN IN THIS PASS 
sREMAINING ITERATION COUNT FOR TEST 
sNUMBER OF DEVICE UNDER TEST 

sSET IF FATAL ERROR IS DETECTED IN TEST 
;SET IF TAPE INTERRUPT WAS RECEIVED 
sEXTENDED FEATURES SOFTWARE SW O=OFF ;1=O0N 
;sBUFFER ENABLE SWITCH SW O=OFF ;1*0N 
sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
sHIGH ADDRESS MEMORY ERROR 

;LOW’ ADDRESS MEMORY ERROR 

;DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
;RAM DATA SIZE FOR PRAMPKT ROUTINE 


crbeal BATA SECTION 


438 


002276 


439 002300 


002302 
002304 


002306 
002310 
002312 
002314 
002460 
002624 


173777 


MACRO M1113 


06 -FEB-84 18:04 


GS 


SEQ 032 


RCVHIADD: : .WORD O sRECEIVED BUFFER HIGH ADDRESS 

RCVLOADD: : .WORD O sRECEIVED BUFFER LOW ADDRESS 

COUNT: : . WORD 0 ;TEST COUNT PATTERN 

DATA:: . WORD 0 sTEST DATA 

TSTFLAG:: . WORD 0 3; TEST FLAG WORD 

TSTPTR:: .WORD O sTSTBLK POINTER 

PRMNO: : . WORD 0 sPRINT ROUTINE TEMP 

EXPMSG: : .BLKB 100. sEXPECTED MESSAGE BUFFER DATA 

RECMSG: : BLKB 100. sRECEIVED MESSAGE BUFFER DATA 

TMPBFR:: .BLKB 80. ; TEMPORARY STORAGE FOR PRINT 
.SBTTL TSTBLK - TEST DATA TABLE 


3 * 


a 

;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
. 

;IN SEQUENCE THE DATA IS: 


TSTBLK:: 


ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 


0 ;ALL ZEROS 
177777 sALL ONES 
BITO ;DATA FOR WALKING ONES 


sDATA FOR WALKING ZEROS 


tCBIT10 
tCBIT11 


TSv3 
TSTBLK 


499 003050 1 


- GLOBAL AREAS 


- TEST DATA T 
167777 
157777 
137777 
077777 


25252 
052525 
003054 


177777 


003170 


MACRO M1113 06 
ABLE 


100000 000000 
000000 000000 


TBLEND==. 


-FEB-84 18:04 
. WORD tCBITie 
. WORD tCBIT13 
. WORD *CBIT14 
. WORD *CBITi5 
. WORD 125252 
WORD 052525 


H3 


3 
sSTORAGE FOR DEVICE REGISTERS 
sDUMMY DEVICE REGISTERS... 


> 
DUMMY : 


0,100000,0,0 
0,.0,0,0,0,0,0,0 
DUFLG . WORD 
NODE V : . WORD 
TEMP1:: . WORD 
TEMPe:: . WORD 
XXCOMM: . WORD 
FREE: : . WORD 
FRESIZ:: . WORD 
FREEHI: .WORD 0 
KTFLG:: . WORD 
KTENABLE: : . WORD 
NXMFLG:: . WORD 
NXMLO: : . WORD 
NXMHI: . WORD 
T23A:: . WORD 
T238:: . WORD 
T3BFLG . WORD 
PST32W . WORD 
SIFLAG .WORD 
BADDAT . WORD 
GDDAT: . WORD 
LOOPFL . WORD 
CTAB:: 
CTABM: . WORD 
. WORD 
. WORD 
. WORD 
. WORD 
CTABE: 


SERROR. STATISTICS TABLE 


— 
© 
< 
« 
»< 
x 
es ese @ 8 @ 


L4XXXX 
~BLKW 


o ooo°o°o co Oo 


‘oooo ees Eee 


i 


SEQ 033 


sALTERNATING ONES, ZEROS 
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


SBTTL GLOBAL ENVIRONMENT STORAGE 


.-FOR MULTI-UNIT CHECKOUT. 


;"DROPPED UNIT” FLAG. 
sINHIBITS CODE IN “CLEAN-UP”. 
sFLAG TO SAY NO DEVICE. 


;SOME TEMP LOCATIONS. 
;XXDP+ COMM BLOCK POINTER. 


poe FREE MEMORY ADDRESS... 
.AND SIZE CIN WORDS). 


;LAST WORD” IN FREE SPACE 


sKT11, MEM AVAIL FLAG - 

;- .WORD O = <24K OR NO KT - 
>24K AND KT. 

;SET BY TEST ROUTINES TO FLAG »28K UNDER TEST 
;SET IF WE CAN TEST CLEARED OTHERWISE 
3;NXM LO ADDRESS BITS 

3;NXM HI ADDRESS BITS FOR DAL’S 16-21 
311/723A FLAG 

3117238 FLAG 

;TEST 38 FLAG tO 

_— BLOCK ADORE SS FOR 32K START 


S ACTUAL DATA 
s;EXPECTED DATA 


;CONF IGURATION TABLES. 
;CONFIG WORK. 


sEND OF MEM TABLE. 


(1 WORD PER UNIT), 64 UNITS MAX; 


UNIT NOT TESTED 
ONLINE, NO ERRORS 


UNIT 


UNIT ONLINE, ENCOUNTERED XXxx ERRORS 

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
UNIT DROPPED, NOT IDLE AT START 

UNIT DROPPED, ENCOUNTERED XXxxX ERRORS 


64. 


TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 18:04 SEQ 034 
GLOBAL ENVIRONMENT STORAGE 
552 003370 000000 ERTABE : .WORD 0 


55 
554 003372 000000 SKIPT: .WORD 0 31*SKIP SUBTEST O=NO SKIP OF SUBTEST 


TSv3 


- GLOBAL AREAS 


GLOBAL TEXT MESSAGES 


124 


052 


MACRO M1115 
1235 126 
052 052 

003541 003545 

003603 005607 
103 000 
111 105 
103 105 
115 122 
130 115 
102 101 
111 124 
111 124 
125 l22 
106 114 
111 124 
111 124 
111 124 
111 124 
111 124 
111 124 
125 1235 
123 123 
040 116 
101 040 
101 040 
101 040 
116 045 
040 125 
040 111 
116 045 


06 -FEB-84 18:04 


J5 


SEQ O35 


-SBTTL. GLOBAL TEXT MESSAGES 


;** 

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 

oe 


3 
sNAMES OF DEVICES SUPPORTED 
3; * 


DEvVTYP 
LSOVTYP:: 
.ASCIZ 


<TSVO5> 
/TSVOS/ 


3; *¢ 
;TEST OESCRIPTION 


3 - 
DESCRIPT <e#eee TSVOS LOGIC DIAGNOSTIC 
LSDESC:: 


.EVEN 


3; * 
;BIT TO ASCII CONVERSION FOR TSSR REGISTER 
B® 






TSSRBIT: : . WORD 1$,2$,3%,4%,5$.6$,7$,8$ 
. WORD 9$,10$,11$,12$,15$,14$,15%,16$ 
1%: .ASCIZ ‘SC’ 
2s: ASCIZ ‘BIE’ 
3$: -ASCIZ ‘SCE’ 
4$;: ASCIZ ‘RMR’ 
S$: -ASCIZ ‘NXM’ 
6$: ASCIZ ‘NBA’ 
7$: .ASCIZ ‘BITS’ 
8$: ASCIZ ‘BITS’ 
S$: ASCIZ ‘SSR’ 
10$: ASCIZ ‘OFL’ 
11$: ASCIZ ‘BITS 
12$: ASCIZ ‘BIT4’ 
13%: ASCIZ ‘BITS’ 
14%: ASCIZ ‘BIT2’ 
15$: ASCIZ ‘BIT1’ 
16%: ( ay ‘BITO’ 
SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
NXR ASCIZ / WNON-EXISTANT DEVICE REGISTER/ 
NXRX ASCIZ /#A ADDRESS: #06/ 
TSSX ASCII /#A TSBA,TSSR EXP’'D: s068A,8068N/ 
ASCIZ /#A TSBA,TSSR REC'D: S068A,806/ 
FUSI ASCII /sNsA/ 
USI: .ASCIZ 7 UNEXPECTED INTERRUPT/ 
NSI: .ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 
FNOINTR: -ASCII /#NSA// 


- CHECK TRANSPORT IF ERROR seee> 
-ASCIZ /eeee TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR seee/ 


TSV35 - GLOBAL AREAS 
GLOBAL TEXT MESSAGES 
628 004215 040 
629 004252 040 
630 004274 045 
631 004331 C40 
632 004405 040 
633 004455 040 
634 
635 004525 000 
636 004524 045 
637 004527 045 
638 004565 045 
639 004637 045 
640 004741 l22 
641 005007 040 
642 005052 127 
643 005107 124 
644 005202 124 
645 005274 106 
646 005566 105 
647 005454 045 
648 005550 045 
649 005641 045 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 005732 
005732 
660 005732 
005732 013746 
005736 012746 
005742 012746 
005746 010600 
005750 104415 
005752 062706 
661 005756 004737 
662 005762 
005762 
005762 104423 
665 
664 
665 
666 
667 
668 005764 005727 
669 005766 000000 
670 005770 001402 
671 005772 004777 
672 005776 
005776 012746 
006002 012746 
006006 010600 


MACRO M1115 06-FEB-84 18:04 


003106 
003775 
000002 


000006 
005764 


177770 


004524 
000001 


NOINTR: 
IFAULT: 
INTX: 

NOINIT: 
NSINIT: 
BRINIT: 


;* 
; THE GLOBAL ERROR REPORT to Ry ay A, THE PRINTB AND PRINTX 


-ASCIZ 
-ASCIZ 
-ASCIZ 


KK 5 


SEQ 036 


/ NO INTERRUPT WAS GENERATED/ 


/ INTERRUPT FAULT/ 
/@A CPU PC: SO68A 


TSBA: #06/ 


/ “BUS-INIT” DION’ T INITIALIZE CONTROLLER/ 


4 “SOFT-INIT” OION’T 
/ “BUS-RESET” OION’T 


4/ 





/@N/ 
/$A EXP’'D: SO068A, REC'D: 







.ASCIZ 





s06/ 


/@NGA EXP'D: SO06SA, SO6ENSA REC'D: 
/@A REGCW) WRITTEN TO: #O6s8A REGC(R) READ; EXP’D: sO068A, REC'D: 
‘RAM Contents Do Not Match Packet Sent’ 


INITIALIZE THE OPU/ 
INITIALIZE THE DPU/ 


SOSA, 806/ 


/ CONFIG DOESN’ T MATCH MFG. MASTER/ 
‘WRITE CHARACTERISTICS Failed’ 
‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
‘TSSR Incorrect After READ Command 

‘FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES, TRANSPORT etc.’ 
‘ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’ 


‘SNSA eee¢0e NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. 


» More Bits Set Than SSR’ 


2e2e0eeGN' 


'GNSBA seeeeseesesesones 11/235A SYSTEM seeesessseseseseemNn'’' 
'GNSBA seeeesesseseesess 11/2358 SYSTEM seeeeseseesesessegNn’ 


GLOBAL ERROR REPORT SECTION 


; CALLS THAT ARE USED IN MORE ST 
; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 


L10002: 


BGNMSG 


“PRINTX 


NXRERR 


ONXRX , NODE V 
NODEV, -( SP) 
ONXRX, -CSP) 
2, -( SP) 

SP ,RO 
CSPNTX 


#6, SP 
PC,EXTEND 


C$MSG 


;NON-EXISTANT DEVICE REGISTER. 
;sNODEV = NEXM ADDRESS. 


 ; PRINT EXTENSION IF REQUIRED. 


, 
; THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


+ 
EXTEND: TST 


EXTA: 


1$: 


0 


(PC )+ 


1$ 
PC ,@EXTA 


@NULCR 
ONULCR, -( SP) 


41, -(€ SP) 
SP ,RO 


; O = NO EXTENSION. 


; APPEND EXTENSION TEXT. 
; PRINT A BLANK LINE 


L353 


TSV3 - GLOBAL AREAS MACRO M1115 O06-FEB-84 18:04 SEQ 037 
GLOBAL ERROR REPORT SECTION 
006010 104415 TRAP CSPNTX 


006012 062706 000004 ADD 4 ,SP 
673 006016 000207 RTS PC 


PRITSSR PRIN 


TTS8R c 


012746 
012746 


MAC 


ONTENT 


006475 


016124 


006715 
000001 


000054 


002624 
006664 


177777 


3° 


M1115 06-FEB-84 18:04 


MS 


SEQ 038 


PRITSSR - PRINT TSSR CONTENTS 


: 

sROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
;THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
;BY A MESSAGE PRINTING ROUTINE 


; 
; INPUTS: 
: 


R1 


CONTENTS OF TSSR 


; ; 
; SUBORDINATE ROUTINES: 
CHECK FOR AMBIGUOUS CONTENTS 


S$: 


10$: 


11$: 


13$: 
15%: 


CHKAMB 


@2,-CSP) 


GHIADOR IFATERR! TERCLS,RS 


4,R3 


20$ 
@TMPBFR ,R2 
ee 


1 
R 


S$ 
3 


13% 
CR1),RO 
Oy tesioeai 


@TMPBFR, -C SP) 
@TSSDEF , -( SP) 


;SAVE GENERAL REGISTERS 
;SAVE THE TSSR CONTENTS 
;PRINT THE CONTENTS OF TSSR 


;GET TSSR BACK FOR CHKAMB 
;ARE CONTENTS AMBIGUOUS ? 
;BRANCH IF NOT 

;SHOW CONTENTS ARE AMBIGUOUS 


;CONTENTS OF TSSR 
;CLEAR ALL MULTIPLE BIT FIELDS 
;NO BITS ARE SET 


; TEMPORARY ASCII BUFFER 
;sASCII EQUIVALENT OF BITS 
sREMAINING BITS TO CONVERT 
;BRANCH WHEN ALL ARE DONE 
;CLEAR CARRY FOR SHIFT 
;SHIFT NEXT BIT TO CARRY 
;BRANCH IF BIT NOT SET 
;sPOINTER TO BIT DEFINITION 
sMOVE ASCIZ TO BUFFER 
;sMOVE ALL BITS 

; INSERT A COMMA TO TERMINATE 


«POINT TO NEXT DESCRIPTION 


;GET THE REMAINING BITS 
; TERMINATE THE LINE 


) 
@TSSDEF ,@TMPBFR ;PRINT THE BIT DEFINITIONS 


NS 





TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 18:04 SEQ 039 
PRITSSR - PRINT TSSR CONTENTS 
006.104 012746 000002 MOV @2,-CSP) 
006170 01 MOV »RO 
006172 104415 TRAP CSPNTX 
ne 006174 0627 000006 ADD 6 , SP 
720 006200 010403 208: MOV »RS ;GET THE TSSR CONTENTS 
721 006202 0427035 177761 BIC @rCTERCLS,RS ;CLEAR ALL BUT TERMINATION 
722 01635035 006754 MOV TCOCOD(RS),.RS ;GET THE TERMINATION CODE MEANING 
723 006212 PRINTX @TCOASC,RS ;PRINT THE TERMINATION CODE 
006212 010346 MOV R3,-CSP 
006214 012745 006554 MOV @TCOASC, -( SP) 
006220 012746 900002 MOV 92, -(SP 
006224 010600 MOV SP ,RO 
006226 104415 TRAP CSPNTX 
0062350 062706 000006 ADD 6 , SP 
724 006234 010405 MOV R4,RS ;TSSR CONTENTS AGAIN 
725 006236 0427035 177717 BIC otCFATERR,RS ;CLEAR ALL BUT FATAL TERMINATION 
726 006242 001416 BEQ 25% ;D0N‘T PRINT IF ZERO 
727 006244 006205 ASR R3 
728 006246 006205 ASR RS 
729 006205 ASR RS ;ALINE TERMINATION CODE FOR INDEX 
730 006252 016503 0073514 MOV TSFCOCOCRS),RS ;GET THE FATAL TERMINATION CODE 
731 006256 PRINTX @TFCASC,RS ;PRINT THE FATAL TERMINATION CODE 
006256 010346 MOV R3,-(€S°) 
006260 012746 006615 MOV @TFCASC, -(SP) 
006264 012746 000002 MOV @2,-C(SP) 
006270 010600 MOV SP ,RO 
006272 104415 TRAP CSPNTX 
006274 062706 000006 ADD 6 , SP 
732 006 042704 176577 25%: BIC @tCHIADOR ,R4 ;CLEAR ALL BUT EXTENDED ADDRESS 
733 006304 001411 BEQ 30$ ;D0N‘'T PRINT IF ZERO 
734 006306 PRINTX @TEXASC,R4 ;PRINT THE EXTENDED ADDRESS BITS 
0063506 010446 MOV R4,-CSP) 
006310 012746 006513 MOV @TEXASC, -( SP) 
006314 012746 000002 MOV 02, -CSP) 
006 010600 MOV SP ,RO 
006322 104415 TRAP CSPNTX 
006324 7 000006 ADO 6 ,SP 
735 006330 013703 002172 30$: MO\ EPRTSW,RS ;PRINT MEAASGE BUFFER ADDRESS 
736 006334 PRINTX RS ;PRINT PROPER MESSAGE 
006334 010346 MOV R3,-CSP) 
006536 012746 000001 MOV @1,-CSP) 
006342 010600 MOV SP ,RO 
006344 104415 TRAP CSPNTX 
006346 062706 000004 ADO 04, SP 
i 006352 000207 RTS PC ;RETURN TO CALLER 
753 006354 045 116 045 EPRT1: .ASCIZ ‘NSA eeeeeCHECK TRANSPORTescese’ 
754 006415 045 116 O45 EPRT2: .ASCIZ ‘SNA eoeeeCHECK PARITY SWITCH IN TRANSPORTeeeee' 
756 006473 045 116 045 TSSRFOR: -ASCIZ ‘NSA YSSR = 806’ 
757 006515 045 116 045 TEXASC ASCIZ ' Extended Address Bits = #806’ 
758 006554 045 116 045 TCOASC ASCIZ ' Termination Class Code = sT' 
759 006615 045 116 045 TFCASC ASCIZ ' Fatal Termination Class Code = sT' 
760 006764 045 116 045 TSSDEF: ASCIZ ' TSSR Bits Set: sT’ 
mee 006715 045 116 045 AMBTSSR on ASCIZ TSSR Contents Are Ambiguous’ 
763 006754 006774 007017 007045 TCOCOD: .WwORD 1%,28,58,4$,5°,6%,7%,8% 


TSV3 
PRIT SSR 


006774 
007017 
007045 


GLOBAL AREAS 


012402 


MACRO M1115 06-FEB-84 18:04 
- PRINT TSSR CONTENTS 


003126 


007652 
000005 


000010 


017376 


Ova wfor 
- 


~ 
— 


64 


SEQ 040 


‘'Normel Termination’ 
‘Termination Condition’ 
‘Tepe Stetus Alert’ 


‘Function Re jec 


t’ 


‘Recovereble Error - Tape Position One Record Down’ 
‘Recovereble Error - Tepe Was Not Moved’ 
‘Unrecoverable Error’ 

‘Fetel Controller Error’ 


1$,28,58,48% 


‘Internal Diagnostic Failure’ 


‘Reserved’ 


‘Bus Interface or Sanity Check Error’ 


‘Reserved’ 
PRIPKT 


- PRINT THE ADORESS/CONTENTS OF COMMAND PACKET 


3° 
;THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 


— ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUT 


P INPUT: 


PRIPKT:; 


108: 


158: 


208%: 
258: 


MOV 
PRINTB 


INE . 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


R4)+-,R2 
OPK TFRM, R1,R2 


sSAVE THE REGISTERS 

sSAVE NO. OF WORDS IN PACKET 
s;ABOVE 28K UNDER TEST? 

;8R IF YES 

3;SET HIGH ORDER ADORESS TO O 
s;COPY HIGH ORDER ADDRESS 
3;GET LOWER ADDRESS 

VSHIFT BIT 15 INTO C BIT 
:;AND INTO HIGH ORDER. 

;PRINT PACKET ADORESS 


sGET HIGH ORDER ADDRESS 

3B8R IF NOT ABOVE 28K. 

sGET LOW ORDER ADDRESS 

sSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
sGET RETURNED PAR6 ADDRESS BIAS 

sSAVE WORD NUMBER 

:sGET PACKET CONTENTS 

sPRINT THE DATA 


TSv5 
PRIPKT 


- PRINT 


- GLOBAL AREAS 


MACRO M1115 


06 -FEB-84 18:04 


THE ADDRESS/CONTENTS OF COMMAND PACKET 


010246 


007574 
0000053 


000010 


116 
116 


177400 


007752 
000004 
000012 


116 


PK TFRM: 
PKTADO: 


045 


045 -ASCIZ 


R2, -(SP) 
Ri, -(SP) 


SEQ 041 


sNEXT WORD NUMBER 

;D0NE ALL PACKET WORDS? 
;L00P TILL ALL DONE 

;RE TURN 


‘GNBA Packet Word @SDISA = 806’ 
‘G@NSA Packet Address = 601605’ 


PRIBXOR 


- PRINT EXPD, RECV AND XOR BrTE 


a 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


: 
; INPUTS: 
: 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 
sEXPECTED DATA 

sFORM THE EXCLUSIVE OR 
;BYTE MASK 

;SAVE LOW BYTE RECV 
sSAVE LOW BYTE EXPO 
s;SAVE LOW BYTE XOR 


3 
@xORBFOR, R2,R1, RS sPRINT THE MESSAGE 


R3,-(SP) 


-ASCIZ 
PRIXOR 


3;RO HAS XOR ON RETURN 
sRETURN TO CALLER 


‘G@NSA EXPD: BOSSA RECV: SO3GA XOR: 
- PRINT EXPD, RECV AND XOR 


605° 


D4 


5. AS ™ -F - . 
PRY ion OBR NTP ERBD, ReCOCRAD AAS 08 -FEB-84 18:04 SEQ Ofe 
856 3° 
857 ; 
&58 ;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TwO 
;THIS ROUTINE IS NORMAc.LY CALLED ONLY FOR PRINT ROUTINES. 
; 
861 ; INPUTS: 
862 ; 
863 ; R1 RECEIVED DATA 
864 ; Re EXPECTED DATA 
865 
866 ;OUTPUT: 
867 : 
868 ; RO xOR OF EXPECTED/RECEIVED DATA 
869 : 
870 ; 
871 
872 010020 PRIXOR 
873 010020 SAVREG sSAVE THE REGISTERS 
874 010024 010203 MOV R2,R5 s;EXPECTED DATA 
875 010026 xOR R1,R35 sFORM THE EXCLUSIVE OR 
876 010036 PRINTB @XORFOR, R2,R1, a3’ sPRINT THE MESSAGE 
010036 010346 MOV R3, -(SP) 
010040 010146 MOV R1,-CSP) 
010042 010246 MOV Re, -( SP) 
010044 012746 010070 MOV @xORF OR, -( SP) 
010050 012746 000004 MOV 04, -(SP) 
010054 010600 MOV SP ,RO 
010056 104414 TRAP CsSPNTB 
010060 062706 000012 ADO #12,SP 
877 010064 010300 MOV R3,RO sRO HAS XOR ON RETURN 
de 010066 000207 RTS C sRETURN TO CALLER 
ae 010070 045 116 045 xXxORFOR: yy ‘G@NSA EXPD: SO6S8A RECV: SO6SA XOR: 806’ 
cv 
aoe .SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT | 
884 3° 
885 ; 
886 sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
oe ; THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
: 
889 ; INPUTS: 
890 ; 
891 : RO OCTAL VALVE TO CONVERT 
43 : Ri TABLE OF POINTERS TO ASCII EQUIVALENT 
; 
894 . 
895 
896 010136 PRIEQU 
897 010136 SAVREG ;SAVE THE REGISTERS 
= 010142 000207 RTS PC sRETURN TO CALLER 
900 .SBTTL PRIRAM - PRINT RAM ADDRESS 
901 * 
902 
903 SPRINT CONTROLLER RAM ADDRESS. 
904 ;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


Tsv3 
PRIRAM 


010144 


010172 
0101°4 


- GLOBAL AREAS 
- PRINT RAM ADDRE 


013700 
013701 
010102 
006101 
006100 


010246 


010174 
000002 


000006 


116 


002230 
002232 
010306 
0000053 


000010 


116 


045 


045 


; 
; INPUTS: 


: 

; 

; 

j- 
PRIRAM: 


RAMF OR : 


3* 


—_ M1115 O6-FEB-84 18:04 


R4 


ADD 
RTS 
.ASCIZ 
.EVEN 


. SBTTL 


E4 


SEQ 045 


RAM ADORESS 


sSAVE R1-RS UNTIL NEXT RETURN 
;PRINT RAM ADDRESS IN ERROR 


PC ;RE TURN 
‘@NSA CONTROLLER RAM ADDRESS = #806’ 


PRIADD - PRINT MEMCRY ERROR ADDRESS 


: 
;PRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


PRIAO: 


3° 


ERRHI 
ERRLO 


.ASCIZ 
.EVEN 


. SBTTL 


IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


;sSAVE R1-RS UNTIL NEXT RETURN 


ERRHI,RO ;GET HIGH ADDRESSS 
ERRLO,R1 sGET LOW ADDRESS 
R1,Re ;COPY LOW ADDRESS 


Ri sSHIFT BIT 15 TO C BIT 
RO ;SHIFT INTO HIGH ORDER 
ae ;sPRINT MEMORY ADDRESS IN ERROR 


RO, -(€SP) 


63, -( SP) 


;RE TURN 
‘@NSA MEMORY ERROR ADDRESS = #801805’ 


PRITADD - PRINT MEMORY TEST ADDRESS 


3 
;PRINT MEMORY ADDRESS 
;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


013702 
013701 


010146 


MACR 
TEST 


CRO M11 
ADDRE 


002250 
002232 


: 
S 


045 
045 


PRITO: 
PRIT1: 


: 06-FEB-84 18:04 


ERRHI 
ERRLO 


-ASCIZ 
-ASCIZ 


F4 


SEQ 044 


IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


;SAVE R1-RS ——" RE TURN 


ERRHI ,R2 ;GET HIGH ADDRE 
ERRLO,R1 sGET LOW ADDRESS 
R1,R2 sCOPY LOW ADDRESS 


R1 sSHIFT BIT 15 TO C BIT 
;SHIFT INTO HIGH ORDER 
sPRINT MEMORY ADDRESS LOW IN ERROR 


sPRINT MEMORY ADDRESS HIGH IN ERROR 


;RETURN 


‘SNSA MEMORY TEST ADDRESS LOW = #06' 
‘SNSA MEMORY TEST ADDRESS HIGH = #06’ 


SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


. 
sROUTINE TO ISSUE A SPACE RECORDS 
;COMMAND (FORWARD OR REVERSE ) 


: 
; INPUT: 


OUTPUT: 


R3 


RS 


NUMBER OF RECORDS TO BE SPACED OVER 
BIT1S CONTROLS DIRECTION 

BIT1S = O IS FORWARD 

BIT1S = 1 IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 


REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 


CARRY 


RO 


SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 


THE CONTENTS CF R4&4 IS MOVED TO RO 


TSV3 
SPAC 


010716 
010720 


012737 
012737 


000764 010740 


140010 
010732 


100000 
010732 
000400 
010730 
000000 


016330 


000250 
002116 
177772 
177756 
010740 


000002 
000200 


010730 


010730 


| NOBPACE RECORDS CFORUARD AND REVERSES COMMAND 


G4 


; 

; IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
6 

;SIDE EFFECTS: 


SPACE: : 


5$: 


10$: 
15%: 


20$: 
253: 


40$: 


60%: 
70$: 


#500. , SDELAY 
oo 


PC ,WAITF 
20$ 


250 

gaa eatin 
Pattee 
-6(PC) 


60$ 
TSSRCRS),R1 
@S 


40$ 
60$ 


70$ 


R4,RO 
PC 


SEQ 045 


;SAVE THE —_— REGISTERS 

;SET UP DELA 

;SET UP COMMAND. SPACE FORWARD 
;CHECK FOR DIRECTION 

;B8R, IF REVERSE INDICATED 

;LOAD UP NUMBER OF RECORDS IC SPACE 
GO 00 COMMAND 


; 
worry DIRECTION BIT 

LOAD UP NUMBER OF RECORDS TO SPACE 
SSET REVERSE BIT IN COMMAND PACKET 
;SET UP R4 WITH PACKET ADDRESS 
;SEND OUT COMMAND 
;WAIT FOR SSR 

IF SSR IS SET AND OK 


;BR, 
;DELAY agouT .25 SECONDS 


;BUMP DELAY _— DOWN 
;BR, IF MORE DELA 

;BR IF TROUBLE CARRY = CLEAR 
;READ TSSR 

;SET UP EXPECTED 

;ARE THEY OK 

3BR, IF EQUAL = OK 

; TROUBLE EXIT 

ee NO TROUBLE 


sEX 
;CARRY CLEAR = ERROR 


;PASS PACKET ADDRESS 
;RE TURN 


ava. 


 GROSPACE RECORDS (FORWARD AND REVERSES COMMAND 


010730 


010732 
010734 
010736 
010740 


010742 
010742 
010746 
010752 
010756 
010762 
010766 
010770 
010772 
010776 


010730 


016501 
012702 


002222 
002220 
000000 


016416 


060002 
000200 


H4 


SEQ 046 


;PACKET FOR SPACE COMMAND 
: 
.*<,+10>€177770 
i COMMAND WORD 
. WORD 
INUMBER OF RECORDS TO BE SPACED OVER WORD 


. WORD 

.WORDB O 
.EVEN 

.SBTTL WRTCHR 


SDELAY ; ;DELAY COUNTER 
- WRITE CHARACTERISTICS COMMAND 
3° 


: 
;sROUTINE TO ISSUE A WRITE CHARACTERISTICS 
*COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


; INPUT: 


R4 ADDRESS OF PACKET FROM TEST 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
OUTPUT: 
RO TSSR CONTENTS 
CARRY SET - WRITE CHARACTERISTICS COMMAND OK 


CLR - WRITE CHARACTERISTICS FAILED 
IMPLICIT OUTPUT: 
MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 


EXTFEA = EXTENDED FEATURES PRESENT 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


SIDE EFFECTS: 


WRT CHR 

SAVREG ;sSAVE THE GENERAL REGISTERS 

CLR BENBSW ;CLEAR BUFFER ENABLE SWITCH 

CLR EXTFEA ;sCLEAR EXTENDED FEATURES SW SWITCH 
10$; MOV R4, TSOBCRS) 3SEND OUT COMMAND 

JSR PC ,.CHKTSSR ;WAIT FOR SSR 

BCS 20$ ;BR, IF SSR IS SET AND OK 

BR 60$ ;BR IF TROUBLE CARRY = CLEAR 
20%: MOV TSSRCRS),R1 ;READ TSSR 

MOV @SSR ,R2 ;SET UP EXPECTED 


011066 
011072 


011074 
011074 
011100 
011104 
011110 
011114 
011120 
Olliee 


GLOBAL AREAS 


CHARACTERI 


032765 
001402 
005237 


000261 
000401 
000241 
016500 
000207 


012704 
010465 
012703 
004737 
103417 


000190 
000100 


011170 
000000 


000012 


000012 


25%: 


3° 


aretice cima eo 18:04 


. SBTTL 


3 
a EXTF ,xST2(R3) 


EXTFEA 


ox2 .BUFE ,.xST2(R3) 
50$ 


BENSSW 


70$ 


14 


TSSRCRS),RO 


PC 
REWIND 


SEQ 047 


sWAS OFF LINE SET IN TSSR 


IF NO OFL 


SET 
;MAKE THEM LOOK ALIKE 


sARE THEY OK 


IF EQUAL = OK 


s TROUBLE EXIT 
sPOINT TO WRT CHARA DATA PACKET 
;GET ADDRESS OF MESSAGE BUFFER 
sEXTENDED FEATURES BIT SET? 


;BR IF NO 
;SET EXTENDED FEATURES SW SWITCH 


;BR, IF SWITCH NOT SET 


;BUFFER ENABLE SWITCH SET 


sSET SOFTWARE SWITCH FOR ENABLED 


;SET CARRY NO TROUBLE 
sEXIT 


;CARRY CLEAR = ERROR 


sRETURN TSSR CONTENTS 
" sRETURN 
- POSITION TAPE CREWIND) COMMAND 


5 
;THIS ROUTINE WILL REWIND THE SELECTED TAPE. 


CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 


so ee ee oe Ge Ge 


- oo oe me 


; INPUT: 


10$: 


EWIND: : 


SSR TO SET IN THE TSSR 


CALLING SEQUENCE : 


DO A SOFT INIT 


DO A WRITE CHARACTERISTICS 
PC REWIND 


JSR 


RS 


RO 


FIRST DEVICE UNIBUS ADDRESS 


THE CONTENTS OF R4& IS PASSED TO RO 


ORWPACK ,R4 


R4, TSOBCRS) 


#360. ,R5 
PC ,WALTF 


20s 
250. 


;SAVE R1-RS UNTIL NEXT RETURN 
;GET PACKET ADORESS 
;SEND PACKET ADORESS TO EXECUTE 

;ENOUGH TIME FOR 2400' REEL TO REWIND 
;WAIT FOR SSR TO SET 


;LEAVE WHEN SSR IS SET 
;WAIT FOR 


.2S SECONDS 


J4 


TSV3 - GLOBAL AREAS MACRO M1115 06-FEB-84 18:04 
REWIND - POSITION TAPE (REWIND) COMMAND 


SEQ 048 


011122 012727 000372 MOV 0250. ,(PC)> 
011126 000000 .WORD O 
011130 013727 002116 MOV LSOLY,(PC)-> 
011134 .WORD O 
011136 005367 177772 DEC -6(PC) 
011142 001375 BNE -4 
011144 005367 177756 DEC -22(PC) 
011150 001367 BNE -20 
1152 011152 005303 DEC RZ ;BUMP COUNTER DOWN 
1153 011154 001357 BNE 10$ ;KEEP GOING 
1154 011156 000241 CLC ;CLEAR CARRY TO SET ERROR 
1155 011160 010400 20% MOV R4,RO ;PASS THE PACKET ADDRESS 
1136 011162 000207 RTS PC ;RE TURN 
1159 011170 .*¢<,610>€177770 
1161 011170 RWPACK: 
1162 011170 102010 .WORD 102010 sPOSTION COMMAND (REWIND) 
1163 011172 000000 .WORD 0O sNOT USED 
ates .SBTTL CKRAM ~- COMPARE RAM TO I/O PACKET 
1166 3° 
1167 3 
1168 sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
144 ;MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 
; 
1171 ; INPUT: 
1172 ; 
1173 ; R4 ADDRESS OF THE COMMAND PACKET 
te ; RS FIRST DEVICE UNIBUS ADDRESS 
: 
1176 ;OUTPUT: 
1177 ; 
1178 ; CARRY SET - RAM MATCHES PACKET 
os ; CLR - RAM DOES NOT MATCH PACKET 
; 
4181 ; IMPLICIT OUTPUT: 
; 
1183 ; THE TABLE RAMDATA IS FILLED WITH THE 
1184 ; DATA HELD IN RAM, 
4185 ; RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 
a 
tr ;SIDE EFFECTS: 
; 
ttt ; THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
Pa 
1191 - 
1192 
1193 011174 CKRAM: : 
1194 011174 SAVREG ;SAVE THE GENERAL REGISTERS 
1195 011200 012701 002234 MOV @RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
1196 011204 012702 000201 MOV ORMPK TBEG ,R2 ;BYTE ADDRESS OF FIRST RAM DATA 
1197 011210 005003 CLR R38 ;CLEAR THE ERROR FLAG 
1198 011212 004737 016416 JSR PC ,CHKTSSR ;WAIT FOR SSR 
1199 011216 112765 000000 MOVB #0, TSDB(RS) ;SET MAINTENANCE MODE 
1200 011224 004737 016416 10$: JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 
1201 011230 010265 000000 MOV R2,TSOB(RS) ;SELECT NEXT RAM ADDRESS 
1202 011234 004737 016416 JSR PC ,CHKTSSR ;WAIT FOR SSR TO SET 


I< 4 


TSV3 - GLOBAL AREA 1 06 -FEB-84 18:04 049 
CRRAM (COMPARE RAM TO TVG PACKET SEQ 
1203 011240 116511 060000 MOVB TSBACRS),(R1) ;READ THE RAM DATA 
1204 011244 122124 CMPB (R1)+,(RO)> sCOMPARE TO EXPECTED 
1205 011246 001401 BEQ 20$ | ;BRANCH IF OK 
1206 011250 005203 INC R3 ;SET ERROR FLAG 
1207 011252 005202 208: INC R2 ;ADORESS OF NEXT RAM LOCATION 
1208 011254 020227 000210 CMP R2, ORMPK TEND sREACHED END YET ? 
1209 011260 003761 BLE 10$ ;BRANCH TILL ALL READ 
1210 011262 005703 - TST R3 ;WAS AN ERROR FOUND ? 
1211 011264 001402 BEQ 30$ ;BRANCH IF NOT 
1212 011266 000241 CLC ;CLEAR CARRY TO SHOW ERROR 
1213 011270 000401 BR 50$ :AND EXI 
1214 011272 000261 30$: SEC ; SHOW S000 COMPARE 
1215 011274 012737 000010 002274 50%: MOV 08. ,RAMSIZ ;SETUP RAMSIZ FOR PRAMPKT ROUTINE 
1216 011302 000207 RTS PC ; RE TURN 
1217 .SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 
3 + 
1219 3 
1220 sROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM R 
1221 earen AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 
12235 pINPUT: 
1224 
1225 : R4 ADDRESS OF THE CHARACTERISTICS DATA 
1226 ; RS FIRST DEVICE UNIBUS ADDRESS 
; 
1228 ;OUTPUT: 
1229 ; 
1230 : CARRY SET - RAM MATCHES PACKET 
qe ; CLR - RAM DOES NOT MATCH PACKET 
; 
1235 ; IMPLICIT OUTPUT: 
in 
1235 ; THE TABLE RAMDATA IS FILLED WITH THE 
1236 ; DATA HELD IN RAM. 
1237 ; RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 
‘ 
1239 ;SIDE EFFECTS: 
1240 : 
1241 : THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
; 
1243 ss 
1244 
1245 011304 CKRAM2: : 
1246 011304 SAVREG ;SAVE THE GENERAL REGISTERS 
1247 011310 012701 002234 MOV @RAMDATA,R1 ;ADDRESS TO SAVE THE RAM DATA 
1248 011314 012702 000167 MOV ORMCHBEG ,R2 ;sBYTE ADORESS OF FIRST RAM DATA 
1249 011320 005003 CLR R3 ;CLEAR THE ERROR FLAG 
1250 011322 004737 016416 JSR PC, CHKTSSR ;WAIT FOR SSR 
1251 011326 112765 000000 000000 MOVB 00, TSOB(RS) ;SET MAINTENANCE MODE 
1252 011334 004737 016416 10$: JSR PC .CHKTSSR ;sWAIT FOR SSR TO SET 
1253 011340 010265 000000 MOV R2, TSDB(RS) ;SELECT NEXT RAM ADDRESS 
1254 011344 004737 016416 JSR PC ,.CHKTSSR ;sWAIT FOR SSR TO SET 
1255 011350 116511 000000 MOVB TSBACRS),(R1) ;READ THE RAM DATA 
1256 011354 122124 CMPB (R1)+,CR4)> ;COMPARE TO EXPECTED 
1257 011356 001401 BEQ 20% ;BRANCH IF OK 
1258 011360 005203 INC R3 :SET ERROR FLAG 


1259 011362 005202 20$: INC Re ;ADDRESS OF NEXT RAM LOCATION 


Is vs - GLOBAL AREA -F :04 SEQ 050 
OR OMe ARE RAM 10 ty 170 OO CHABACTERTS TERS O pata: 
1260 011364 012737 000010 002274 MOV 08. .RAMSIZ sASSUME EXTFEA NOT SET 
1261 011372 005737 002220 TST EXTFEA :IS THE SOFTWARE EXTENDED FEATURES SET 
1262 011376 001407 BEQ 25% sBR, IF NOT SET 
1263 011400 012737 000012 002274 MOV #10. ,RAMSIZ ;SET RAMSIZ FOR EXTEND FEATURES 
1264 011406 020227 000200 CMP R2, ORMCHEND ;AT END OF EXTENDED BUFFER 
1265 011412 003750 BLE 10$ ;8R, IF NOT AT END YET 
1266 011414 000403 BR 27% ;AT END BRANCH 
1267 011416 020227 000176 253: CMP R2, ORMCHEND -2 sREACHED END YET ? 
1268 011422 003744 BLE 10$ ;BRANCH TILL ALL READ 
1269 011424 005703 27s: TST R3 ;WAS AN ERROR FOUND ? 
1270 011426 001402 BEQ 30% s;BRANCH IF NOT 
1271 011430 000241 CLC sCLEAR CARRY TO SHOW ERROR 
1272 011432 000401 BR 50$ ;AND EXIT 
1273 011434 000261 30$: SEC ;SHOW GOOD COMPARE 
1274 011436 000207 50$: RTS PC ;RE TURN 
1275 .SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
3;* 
1277 ; 
1278 sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
1279 ;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
1280 s;ERROR PRINT ROUTINES. 
1281 3 
1282 ; INPUT: 
1283 3 
1284 : RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
1285 : Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
1286 ; Ro EXPD MESSAGE BUFFER ADDRESS 
1287 ;OUTPUT 
1288 ; 
1289 ; CARRY SET - MESSAGE BUFFERS MATCH 
ty ; CLR -MESSAGE BUFFERS DON’T MATCH 
. 
sees ; IMPLICIT OUTPUT: 
; 
1294 ; —EXPMSG BUFFER IS SET TO EXPD DATA 
1295 ; RECMSG BUFFER IS SET TO RECV DATA 
1296 ; RCVHIADD SET TO HIGH ORDER ADORESS OF RECV 
(od ; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
3 
1299 - 
1300 011440 CKMSG: : 
1301 011440 SAVREG ;SAVE R1-RS UNTIL NEXT RETUDN 
1302 011444 010037 002276 MOV RO, RCVHIADD ;SAVE RECV HIGH ADDRESS 
1303 011450 010137 002300 MOV R1,RCVLOAD ;SAVE RECV LOW ADDRESS 
1304 011454 005737 003126 TST K TENABLE ;TESTING ABOVE 28K? 
1305 011460 001403 BEQ 10$ ;BR IF NO 
1306 011462 004737 017376 JSR PC, SETMAP s;RETURN ADDRESS BIASED TO PAR6 IN RO 
1307 011466 010001 MOV RO,R1 ;GET RETURNED ADDRESS BIASED TO PARE 
1308 011470 005004 10$: CLR R4 ;WORD IN BUFFER 
1309 011472 005003 CLR R3 CLEAR ERROR SEEN FLAG 
1310 011474 010205 MOV R2,R5 ;GET EXPD BUFFER ADDRESS 
1311 011476 011264 002314 153: MOV (R2),EXPMSG(R4) SAVE EXPD FOR ERROR REPORT 
1312 011502 011164 002460 MOV CR1L),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
1313 011506 022221 CMP (R2)+,CR1)> ;EXPD EQUAL RECV? 
1314 011510 001401 BEQ 25% ;BR IF YES 
1315 011512 005203 INC R3 ;SET ERROR SEEN FLAG 


1316 011514 062704 000002 25%: ADO 02,R4 ;sPOIN? TO NEXT WORD ADDRESS 


pSV 


4th 011520 


318 011524 


011526 
011554 
011556 
011542 
011544 
011546 
011550 
011552 
011554 
011556 


020427 
003764 


nfs 000200 900012 


020327 
003412 
012703 


012746 
012746 


000014 


000144 
000144 
011712 
000001 


017376 


505: 


55%: 
60$: 


;* 


 RORORPARE WRITE CHARS NESSAcEBUFFERS* 12:04 


. SBTTL 


M4 


SE@ 051 


—_ ar i 7 WORDS? 
aaa -EXTF, .xST2CRS TS EXTENDED FEATURES SET IN EXPD? 


NO 

R4,416 ; DONE EXTENDED FEATURES WORD? 
15$ ;BR IF 
R3 sANY ERRORS SEEN? 
55% ;BR IF NO 

SET FAILURE 
60$ 

SSET SUCCESS 
PC ;RETURN 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


: 

;ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
;ERROR PRINT ROUTINES. 


5$: 


10$: 


KMSG2: : 


CARRY 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 

NUMBER OF BYTES TO COMPARE 


SET - MESSAGE BUFFERS MATCH 
CLR - MESSAGE BUFFERS DON’T MATCH 


IMPLICIT OUTPUT: 


EXPMSG BUFFER IS SET TO EXPD DATA 
RECMSG BUFFER IS SET TO RECV DATA 
RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
CMP R3, @RECMSG -EXPMSG;:880 IS COUNT ABOVE MAX ALLOWED? 
BLE 5$ ;880 BR IF NO 
V @RECMSG -EXPMSG,R3; 880 
PRINTF #@DEEUGMSG H 
MOV &CEBUGMSG, -( SP) 
MOV @1.,-CSP) 
MOV P,RO ° 
TRAP CSPNTF 
ADD 04 ,SP 
MOV RO,RCVHIADD ;SAVE RECV HIGH ADDRESS 
MOV R1,RCVLOAD ;SAVE RECV LOW ADORESS 
TST K TENABLE ;TESTING ABOVE 28K? 
BEQ 10$ ;68R IF NO 
JSR PC ,SETMAP ;RETURN ADDRESS BIASED TO PAR6 IN RO 
MOV RO,R1 ;GET RETURNED ADDRESS BIASED TO PARE 
CLR R4 ;WORD IN BUFFER 


N4 


SEQ 052 


EStSas MBSA" Eavo ACES RSULE oOPiERB™ 100 


RECV MES 


1369 011644 005005 CLR RS ;CLEAR ERROR SEEN FLAG 
1370 011646 111264 002314 15$: MNWA CR2),EXPMSGCR4) ;SAVE EXPD FOR ERROR REPORT 
1371 011652 111164 002460 MOVB (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
1372 011656 122221 CMPB (Roe, CRI Do sEXPD EQUAL RECV? 
3373 011660 001401 BEQ 25% ;B8R IF YES 
1374 011662 INC RS ;SET ERROR SEEN FLAG 
1375 011664 062704 000001 25%: ADD #1,R4 sPOINT TO NEXT BYTE 
1376 011670 020405 CMP R4,RS ;DONE ALL BYTES? 
1377 011672 00200 BGE 50$ ;BR IF YES 
1378 011674 000764 BR 15$ ;D0 NEXT BYTE 
1379 011676 005705 50$: TST RS ;ANY ERRORS SEEN? 
1380 011700 001402 BEQ 55$ ;B8R IF NO 
1381 011702 000241 CLC ;SET FAILURE 
1 011704 000401 BR 60$ 3 
1383 011706 000261 558: SEC ;SET SUCCESS 
too. 011710 000207 60$: RTS PC ;RETURN 
1386 011712 120 122 117 DEBUGMSG: -ASCIZ ‘PROGRAM INTERNAL ERROR -Ci™“SG2 MESSAGE BUFFER EXCEEDED-’ :a3a0 
1387 012002 045 116 045 FERCM: .ASCI1L /SNSA e00/ 
1388 0120135 - 040 040 124 ERCM: ASCIZ / TSSR ERROR CODE REC'D «= / 
1389 012046 056 056 056 SIMSG: ASCI 4.... AFTER DOING SOFT INIT/Z 
1390 012101 124 105 123 TINERR ASCIZ /TEST: ...7 
1391 EVEN 
1392 
1393 3° 
1394 ; 
tt ;PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
: 
1397 ; INPUT: 
1398 ; 
eee ; R1 CONTENTS OF TSSR AT ERROR 
; 
1401 ;SIDE EFFECTS: 
1402 ; 
pees ; EXECUTES DROP UNIT TO CEASE TESTING 
; 
1405 ;- 
1406 
1407 012114 SGNMSG SFIMSG 
012114 SFIMSG:: 
1408 012114 004737 006020 JSR PC .PRITSSR ;PRPINT CONTENTS OF TSSR REGISTER 
1409 012120 004737 017262 JSR PC ,.CKDROP ;OROP UNIT, IF ALLOWED 
1410 012124 ENDMSG 
012124 L10003: 
012124 104423 TRAP C$MSG 
1411 
1412 ;° 
1413 ;PRINT ROUTINE TO PRINT THE CONTENTS OF 
ed ;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
; 
1416 ; INPUTS: 
1417 
1418 ; R1 TSSR CONTENTS 
1419 ; Ha ADDRESS OF COMMAND PACKET 
1420 ; 
1421 3: 
1422 


be Pe he. cakes = —— = a 


TSVS_ - GLOBAL AREAS 
CKMSGe2 - 


1425 


MACRO M1115 


06 -FEB-84 16:04 SEQ 055 


COMPARE EXPD RECV MESSAGE BUFFERS 


012142 


012144 
012144 
012144 
012150 
012154 
012160 
012160 
012160 


012162 
012162 
012162 
012166 
012166 
012166 


004737 
012700 
004737 


104425 


004737 
012700 
004737 


104425 


004737 


104425 


006020 
000004 
007446 


006020 


BGNMSG PKTSSR 


PKTSSR:: 
J At PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV 04 ,RO 3NO. OF WORDS IN PACKET 


JSR PC. PRIPKT SPRINT Te€é CONTENTS OF COMMAND PACKET 
ENOMSG 

L 10004; 
TRAP Cs8mMSG 


3° 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A GET STATUS COMMAND PACKET. 


3 
: INPUTS: 
s 
: Ri TSSR CONTENTS 
; R4 ADDRESS OF COMMAND PACKET 
H 
*. 
PKTGETS 
PKTGETS:: 
PC .PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV @2,R0 3;NO. OF WORDS IN GET STATUS PACKET 
oe PC ,PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 
L10005: 
TRAP C8MSG 


3° 
sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 


¢ 
; INPUTS: 
a 
; Ry TSSR CONTENTS 
3 Ra ADDRESS OF COMMAND PACKET 
Py - 
BGNMSG SFFMSG 
SFFMSG:: 
JSR PC ,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
ENOMSG 
L 10006: 
TRAP Cs8MSG 


-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 


3° 


§ 
sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
;BUFFER FOR ERROR REPORTS 


a 

s INPUTS: 

é 

; R1 CONTENTS OF TSSR 

; R2 LOW ORDER MESSAGE BUFFER 

; R& HIGH ORDER MESSAGE BUFFER ADDRESS 
‘ 


NOTE: RS IS IGNORED IF KTENABLE FLAG IS CLEAR 


1471 
1472 


1473 
1474 
1475 
1476 


012170 


012222 


012224 
0° 2224 
012224 
012250 
012234 
012256 
012242 
012246 
012246 
012246 


004737 
010200 
010301 
004737 


104423 


004737 
016591 
004737 


104425 


012700 
005737 
001402 
012700 
004737 


104425 


006020 


014322 


010352 
000002 
006020 


000007 
002220 


000010 
014632 


BiEcs Baie mol AEBRAEL Ader Ph TER: 84 18:04 


as 
BGNMSG PKTMES 
PKTMES:: 
JSR PC ,.PRI'TSSR 
MOV R2,RO 
MOV R35,R1 
JSR PC ,.PRMESS 


ENOMSG 
L10007: 
TRAP C$MSG 
.SBTTL ADOSSR 


SEQ 054 


sPRINT CONTENTS OF TSSR 
sLOW ORDER ADDRESS 

sHIGH ORDER ADDRESS 
sPRINT THE MESSAGE BUFFER 


- PRINT TEST ADORESS AND TSSR 


;PRINT ROUTINE TO PRINT THE —= OF 


— AND A MEMORY TEST ADDRESS 
S INPUTS: 
; 
; RS FIRST DEVICE UNIBUS ADDRESS 
: tRRAT HIGH ORDER MEMORY TEST ADDRESS 
; ERRLO LOW ORDER MEMORY TEST ADDRESS 
3° 
ADDSSR 
ADOSSR: : 
PC ,PRITADD ;sPRINT MEMORY TEST ADDRESS 
MOV TSSRCRS),R1 ;GET CURRENT TSSR 
JSR PC .PRITSSR sPRINT THE CONTENTS OF SSR REGISTER 
ENOMSG 
L10010: 
TRAP C8MSG 


. SBTTL 
3° 


MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


’ 
sPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 


3 
sIMPLICIT INPUTS: 


; EXPMSG - EXPECTED MESSAGE BUFFER 
: RECMSG - RECEIVED MESSAGE BUFFER 
: RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
’ RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
: 
BGNMSG MSGEXP 
MSGE XP; ; 
MOV 07,R0 sASSUME NO EXT FEATURES 
TST EXTFEA sEXT FEATURES SET? 
BEQ 5% ;68R IF NO 
MOV 08. ,RO sEXT FEATURE BUFFER IS 8 WORDS 
S$ res a PC , PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 


sMSG 
.SBTTL FIFEXP 
3° 


- PRINT FIFO EXP/RECV DATA 


3 
sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 


1529 


1554 
1555 


0123571 


0124350 
0124350 
012450 
012434 
012436 
012440 
012440 
012442 
012446 
012450 
012452 
012456 
012460 


010146 
012746 
012746 
010600 
104415 
062706 


012746 
012746 


012701 


012322 
000002 


000006 


012571 
000001 


116 
116 


012472 


000012 


045 
045 


L1001e2: 


FIFiIMSG: 
FIFOMSG: 


3° 


PMExe SUOBR NP ESP o exeDREBD BAtAS 06 FEB-84 18:04 


Ri 


EXPMSG 
RECMSG 


.EVEN 
. SBTTL 


: 
;PRINT ROUTINE 


D5 


- BYTE COUNT 
IMPLICIT INPUTS: 


SEQ 055 


- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
- RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 


FIFEXP 
oF IF iIMSG,R1 


R1,RO 
PC .PRBYTEXP 


C$MSG 
-ASCIZ 
-ASCIZ 


sPRINT BYTES TRANSFERRED 


;PRINT HEADER MSG 


;GET BYTE COUNT 
sPRINT FIFO BYTES IN ERROR 


‘SNSA NUMBER OF BYTES TRANSFERRED = #02’ 
‘SNSA FIFO DATA BYTES IN ERROR: ' 


MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


TO PRINT MESSAGE BUFFER EXPD/RECV 


3 
;IMPLICIT INPUTS: 


208: 


EXPMSG - 

RECMSG - 
RCVHIADD - 
RCVLOADD - 

BGNMSG MSGSTAT 
MOV @STATCOD,R1 
BEQ 20% 
PRINTX RO 

MOV RO, -(SP) 
MOV SP RO 
TRAP CSPNTX 
ADD 04 ,SP 

BR 10% 

MOV #10, ,RO 


EXPECTED MESSAGE BUFFER 
RECEIVED MESSAGE BUFFER 
RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


sASCII ADDRESS TABLE 
sOONE ALL MSG LINES? 
;8R IF YES 

sPRINT STATUS BIT NAMES 


300 ANOTHER MSG LINE 
sNUMBER OF WORDS IN A READ STATUS BUFFER 


TSsv3 
MSGS 








c 
a 
- GLOBAL AREAS MACRO M1113 O06-FEB-84 18:04 SEQ 056 
TAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
1556 012464 004737 014632 JSR PC , PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 
1557 012470 E 
012470 L10013: 
— 012470 104425 TRAP CSMSG 
1559 012472 012510 012552 012643 STATCOD: . WORD 1$,28,3%,4%,5%,68%,0 
1560 012510 045 116 045 1%:.ASCIZ ‘SNSA Tape Bus Si als in Word 06:' 
1561 012552 045 116 045 28:.ASCIZ ‘sNSA PARERR<15> IEOT <l2> IFMK <9> IRDY<6> IRwWD<2>’ 
1562 012643 045 116 045 3%:.ASCIZ ‘ IRESV2<14> IIDENT<1i1l> IHER <8> ION <S> IFBY<1>’ 
1563 0127534 045 116 045 4$%:.ASCIZ ‘sSNA IRESVi<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O>’ 
1564 013025 045 116 045 5%:.ASCIZ ‘sNSA Tape Bus Signels in Word 69:' 
1565 013067 045 116 045 6$%:.ASCIZ ‘sNSA DATMIS<7> ILW<6>» OQOUTRDY<S> INRDY<4>’ 
fast .EVEN 
1 
fees .SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
1 3° 
1570 ; 
a3? ;sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
157 ; 
ott ; IMPLICIT INPUTS: 
: 
1575 : EXPMSG - EXPECTED MESSAGE BUFFER 
1576 : RECMSG - RECEIVED MESSAGE BUFFER 
1577 ; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
tthe ; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
5 ¢ 
1580 013144 BGNMSG MSGLOOP 
013144 MSGLOOP: : 
1581 013144 012701 013206 MOV @LOOPCOD,.R1 sASCII ADDRESS TABLE 
1582 013150 012100 10%: MOV CR1)+,RO ;DONE ALL MSG LINES? 
1583 013152 001410 BEQ 20% ;8R IF YES 
1584 013154 PRINTX RO sPRINT STATUS BIT NAMES 
013154 010046 MOV RO, -( SP) 
013156 012746 000001 MOV #1,-(SP) 
013162 010600 MOV SP ,RO 
013164 104415 TRAP CSPNTX 
013166 062706 000004 ADD 04,SP 
1585 013172 000766 BR 10$ 300 ANOTHER MSG LINE 
1586 013174 012700 000012 208: MOV #10. ,RO ;NUMBER OF WORDS IN A READ STATUS BUFFER 
1587 013200 004737 014632 JSR PC, PRMSGE XP ‘PRINT EXPD/RECV MESSAGE BUFFERS 
1588 013204 ENOMSG 
013204 L10014;: 
— 013204 104423 RAP C$MSG 
1590 013206 013226 013301 013400 LOOPCOD: . WORD 1$,28,38,48,53.6$, 7$,0 
1591 013226 045 116 045 1%:.ASCIZ ‘NSA Tape Bus Loopback Signals in Word 08:' 
1592 013301 045 116 045 2%:.ASCIZ ‘sNSA PARERR<15> IRESV2<14> IRESV1<13>'° 
1593 01340° 045 116 045 3%:.ASCIZ ‘sNSA IHISP=>IEOT<12> IWRT=>IIDENT<11> IREV =>ICER <10>' 
1594 013477 045 116 045 48$:.ASCIZ ‘sNSA IWFM =>IFMK<09> IEDIT=>IHER <O8> IFAD =>ISPEED<07>' 
1595 013576 045 116 045 5$:.ASCIZ ‘s@NSA ITADO=>IRDY<06> ITAD1L=>IONL <O05> IERASE=>ILDP <O4>’ 
1596 013675 045 116 045 6%:.ASCIZ ‘sNSA IREW => IDBY<03> IRWU =>IRWO <02> IFEN =>IFBY <OL>’ 
ited 013774 045 116 045 7$ momen — IGO «#>IFPT<0O0>' 
.EVEN 
oe .SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
3° 
1601 ; 
1602 ;sPRINT ROUTINE TO PRINT MESSACE BUFFER EXPD/RECV 


Pa 


TSV3 - GLOBAL AREAS MACRO M1113 ‘gts Se 18:04 SEQ 057 
MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFE 
1603 ; 
1604 ; 
oor s IMPLICIT INPUTS: 
; 
1607 $ EXPMSG - EXPECTED MESSAGE BUFFER 
1608 : RECMSG - RECEIVED MESSAGE BUFFER 
1609 3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
oer ; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
3 - 
1612 014022 BGNMSG M™SGSUB8 
014022 MSGSUB: : 
1613 014022 012700 000012 MOV #10. ,RO ;SIZE OF WRITE SUBSYSTEM BUFFER 
1614 014026 004737 014632 JSR PC ,.PRMSGE XP sPRINT EXPD/RECV MESSAGE BUFFERS 
1615 014032 E SG 
014032 L10015 
— 014032 104425 TRAP CsmMSG 
1617 .SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
1618 3° 
1619 : 
erty ;PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
621 : 
ese ; IMPLICIT INPUTS: 
; 
1624 ; ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 
1625 3 ERRLO - MEMORY ERROR LOW ORDER ADDRESS 
1626 ; EXP - EXPECTED DATA 
1627 3 RECV - RECEIVED OATA 
1628 3- 
1629 014034 BGNMSG MEMADD 
014034 MEMADD: : 
1630 014034 004737 010236 JSR PC ,PRIADO ;PRINT MEMORY ADDRESS IN ERROR 
1631 014040 013701 002224 MOV EXPO ,R1 ;GET EXPD DATA 
1632 014044 013702 002226 MOV RECV Ro ;GET RECEIVED DATA 
1633 014050 004737 010020 JSR PC ,PRIXOR ;sPRINT EXPD/RECV 
1634 014054 ENOMSG 
014054 L10016: 
014054 104423 TRAP C$MSG 
rent SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 
3* 
1637 3 ° 
1638 ;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
rt ;WHEN THE RAM DATA DOES NOT MATCH. 
; 
1641 ; INPUTS: 
1642 ; 
saa ; R4 POINTER TO COMMAND PACKET 
; 
Seen ; IMPLICIT INPUTS: 
1647 ; RAMDATA DATA AS READ FROM THE RAM 
1648 : RAMSIZ NUMBER OF BYTES IN PACKET 
ene ; IF RAMSIZ=O THEN DEFAULT TO 8. 
: 
1651 s IMPLICIT OUTPUTS: 
1652 ; 
1653 ; RAMSIZ SET TO O 


TSv5 
PR 


AMPK T 


- GLOBAL AREAS 
- PRINT RAM AND 


014522 


012701 
00500 


2 
122124 
001005 


0004 36 
116105 
116405 


042705 
1161357 
116437 


MACRO M iis 


PACKET 


002254 


177777 
177777 


177400 


177777 
177777 


002224 
002226 


014236 
000005 


000014 
002274 
002274 


000010 
002274 


116 


002226 
002224 


045 


5$: 


78%: 


10$: 


RAMASC: 


3 * 


3 
;THIS ROUTINE PRINTS THE CONTENTS OF 


06 -FEB-84 18:04 


SAVREG 
MOV ORAMDATA,R1 
CLR a 
CMPB C(R1)+,CR4)> 
BNE 
FORCERROR 
BR 
MOVE -1€R1),R5 
XOR RS,R3 
BIC 0177400, R3 
MO -1(R1),RECV 
MOVB -1€R4),EXPD 
PRINTB 
MOV 3,-¢ 
MOV R2,-CSP 
MOV hee SP ) 
MOV SP RO 
TRAP CSPNTB 
ADD @14,SP 
INC Ro 
TST RAMSIZ 
BEQ S$ 
CMP R2,RAMSIZ 
BLE 5% 
BR 25% 
CMP R2,08 
BLT $ 
CLR RAMSIZ 
RTS Cc 
a ‘aNSA BYTE: 
.SBTTL PRMESS 


@RAMASC .R?,RECV, eEX°D,RS 


SEQ 058 


s;SAVE R1-RS ge ne RETURN 
sDATA FROM THE R 

sINIT BYTE NUMBER 

s;COMPARE EXPECTED, RECEIVED 
;8R IF NO MATCH 


; 820 

;GET RECV RAM DATA 
;GET EXPD PACKET DATA 
;XOR EXPD/RECV 

3;LOW BYTE ONLY 

;GET RECEIVED RAM DATA 
;GET EXPECTED RAM DATA 


;UPDATE BYTE COUNT 
;DEFAULT TO 8.? 

;B8R IF YES 

;D0NE ALL BYTES? 
;BR IF NO 


8 

;DONE DEFAULT NUMBER OF BYTES? 
;B8R IF NO 

;SET DEFAULT RAMSIZ 

;RETURN 


: SO38A Packet: SO38A XOR:803' 
- PRINT CONTENTS OF MESSAGE BUFFER 


;THE 7 OR & WORD MESSAGE BUFFER RETURNED BY THE 


;TSV-O5. 
; 
; INPUT: 


RO 
R1 


LOW ORDER ADDRESS OF MESSAGE BUFFER 
HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 


THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


H5 







TSVS - GL MACRO _M -FEB-84 18:04 SEQ 059 
PRMESS OBRINT CONTENTS oF MESSAGE BUFFER 
1702 014322 SAVREG ;SAVE THE REGISTERS 
1703 014326 010005 MOV RO,RS ;SAVE LOW ORDER ADDRESS 
1704 014330 005737 003126 TST K TENABLE sADDRESS ABOVE 28K? 
1705 014334 001001 BNE 10$ ;8R IF YES 
1706 014336 005001 CLR Ri ;SET HIGH ORDER ADDRESS TO O 
1707 014340 010103 10%: MOV R1,RS ;SAVE HIGH ORDER ADDRESS 
1708 014342 006100 ROL RO ;sSHIFT BIT1IS TO C BIT 
1709 014344 006101 ROL Ri ;SHIFT TO HIGH ORDER FOR PRINTOUT 
1710 014346 PRINTX @PROASC,R1,RS ;PRINT MESSAGE BUFFER ADDRESS 
014346 010546 MOV RS, -(SP) 
014350 010146 MOV R1,-CSP) 
014352 012746 014500 MOV C,-(SP) 
014356 012746 00000 MOV o3,-( 
014362 010600 MOV SP RO 
014364 104415 TRAP CSPNTX 
014366 062706 000010 ADD #10,SP 
1711 014372 PRINTX @PRIASC sPRINT HEADER FOR CONTENTS , 
014372 012746 014545 MOV OPRIASC, -CSP) 
014376 012746 000001 MOV @1,-(SP) 
014402 010600 MOV SP ,RO 
014404 104415 TRAP CSPNTX 
014406 062706 000004 ADD 04 ,SP 
1712 014412 005004 CLR RA ;NUMBER OF THE NEXT WORD 
1713 014414 010501 MOV RS,.R1 ;COPY LOW ORDER ADDRESS 
1714 014416 010300 MOV R5,RO ;COPY HIGH ORDER ADORESS 
1715 014420 001403 BEQ 20% ;BR IF NOT ABOVE 28K 
1716 014422 004737 017376 JSR PC, SE TMAP ;SETUP PAR ADDRESS IN RO 
1717 014426 010005 MOV RO,RS ;GET PAR FORMAT ADDRESS ABOVE 28K 
1718 014430 20%: PRINTX @PRASC,.R4,(RS)> SPRINT THE CONTENTS OF MEMORY BUFFER 
014430 012546 MOV CRS)+, -CSP) 
014432 010446 MOV R4, -( 
014434 012746 014603 MOV OPRASC, -( SP) 
014440 012746 000003 MOV @3, -( 
014444 010600 MOV »R 
014446 104415 TRAP CSPNTX 
014450 062706 000010 ADD #10,SP 
1719 014454 005204 INC Ra ;sNUMBER OF THE NEXT 
1720 014456 020427 000007 CMP R4,07 ;DONE ALL YET ? 
1721 014462 003005 BGT 50$ -—*'g IF ALL DONE 
1722 014464 002761 BLT 20% PRINT FIRST 7 WORDS 
1723 014466 032763 000200 000012 BIT @x2.EXTF, XST2(R3) ;EXTENDED FEATUTES ON ? 
1724 014474 001355 BNE 20% ;PRINT EXTENDED STATUS WORD 
tn 014476 000207 508: RTS PC ;RE TURN 
1727 014500 045 116 045 PROASC: .ASCIZ ‘SNSA Message Buffer Address = #01805’ 
1728 014545 045 116 045 PRIASC: .ASCIZ ‘SNSA Message Buffer Contents: ' 
xy 014603 045 116 045 PRASC: ay ‘ sNwA WordsD1sA: #0’ 
-EVEN 
thet .SBTTL PRMSGEXP - PRINT EXPO/RECV MESSAGE BUFFERS 
3° 
1733 ; 
vee ;sROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
; 
boat ; RO - NUMBER OF WORDS IN BUFFER 


; 
1736 ; IMPLICIT INPUTS: 
. 


TSV5 
PRMSGE xP 


1754 


- GLOBAL 


915115 


AREAS 
- PRINT EXPD/RECV 





002300 
002276 


002314 
02460 


015115 
000005 


000014 


116 
116 


045 
045 


20%: 


50$: 


PRMSGO: 
PRMSG1: 
PRMSGe: 


3° 


Cy MESSAGE BUFFERS” ——e 


EXPMSG 
RECMSG 


IS 


SEQ 060 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECETVED MESSAGE BUFFER LOW ORDER ADDRESS 


-ASCIZ 
-ASCIZ 
.EVEN 
. SBTTL 


;SAVE R1-RS UNTIL NEXT RETURN 


RO,RS ;SAVE NUMBER OF WORDS 
RCVLOADD, RO ;GET RECV LOW ADDRESS 
RO,R4 ;COPY LOW ADDRESS 
RCVHIADD ,R1 ;GET RECV HIGH ADDRESS 
RO ;SHIFT BIT1S TO C BIT 
R1 ;SHIFT TO HIGH ORDER FOR PRINTOUT 
OPRMSGO ,R1,R4 sPRINT MESSAGE BUFFER ADDRESS 
R4,-CSP) 
R1,-CSP) 
SGO, -( SP) 

os, -¢ 

SP RO 
CSPNTX 

10,SP 

1 sPRINT HEADER FOR CONTENTS 

OPRMSG1, -( SP) 

@1,-(SP) 

SP RO 
CSPNTX 

64 .,SP 
R4 ;sNUMBER OF THE CURRENT WORD 
GE XPMSG,.R1 ;GET EXPD BUFFER ADDRESS 
ORE »R2 ;GET RECV BUFFER ADDRESS 
CR1),RO sGET EXPD 

yd Fa ;GET RECV 

RO,RS ;XOR EXPD/RECV 

OPRMSG2 .R4,CR1L)+, S(R2)+,R3 

RS, -(SP) 

(R2)+,-CSP) 

CR1)+, -CSP) 
R4,-( SP) 

OPRMSG2, -( SP) 

oS, -CSP) 

SP .,RO 
CSPNTX 

@14,SP 
R4 sNUMBER OF THE NEXT 
R4,R5 ;DONE ALL YET? 
50$ ;BR IF YES 
20% ;00 ANOTHER 
PC ;RE TURN 


‘SNSA Message Buffer Address * 801805 ' 
‘SNBA Mess Buffer Contents 
‘sNSA 8 =6©WORD O8D2SA EXPD: s06eA RECV: S068A xXOR: 806’ 


PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 





‘ 
;ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 


J5 


TSV3S - GLOBAL AREAS MACRO M1113 06-FEB-84 12:08 SEQ 061 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
hs : ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED OUE TO SCREEN SPACE 
oe ; RO - NUMBER OF BYTES IN BUFFER 
1 ; 
fee ; IMPLICIT INPUTS: 
1781 : 
1782 ; EXPMSG - EXPECTED MESSAGE BUFFER 
ios ; RECMSG - RECEIVED MESSAGE BUFFER 
i 
1785 015202 PRBYTEXP: : 
1786 015202 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
1787 015206 010005 MOV RO,RS ;SAVE NUMBER OF BYTES 
1788 015210 005037 002312 CLR PRMNO s; INIT ERROR COUNT 
1789 015214 CLR R4 sNUMBER OF THE CURRENT BYTE 
1790 015216 012701 002314 MOV GEXPMSG ,R1 ;GET EXPD BUFFER ADDRESS 
1791 015222 012702 002460 MOV @RECMSG ,R2 ;GET RECY BUFFER ADDRESS 
1792 015226 111100 20$: MOVB CR1),RO ;GET EXPO BYTE 
1793 015230 042700 177400 BIC @tC<377>,R0 ;CLEAR UPPER BYTE 
1794 015234 110037 015550 MOVB RO ,.PRBEXP ;SAVE FOR ERROR REPORT 
1795 015240 111203 MOVB CR2),R3 ;GET RECV BYTE 
1796 015242 042703 177400 BIC @tC<377>,R3 ;CLEAR UPPER BYTE 
1797 015246 110337 015552 MOVB R3,PRBREC ;FOR ERROR REPORT 
1798 015252 XOR RO,R3 ;XOR EXPD/RECV 
1799 015262 122122 CMPB CR1)+,CR2)-> ;EXPD = RECV? 
1800 015264 001431 BEQ 30$ ;BR IF YES 
1801 015266 005237 002312 INC PRMNO ; UPDATE ERROR COUNT 
1802 015272 023727 002312 000010 CMP PRMNO, 8. sPRINTED 8? 
1803 015300 101023 BHI 30$ ;BR IF YES 
1804 015302 27s: PRINTX @PRBMSG,R4,PRBEXP .PRBREC,.R3 
015302 010346 MOV R3,-CSP) 
015304 013746 015552 MOV PRBREC, -( SP) 
015310 013746 015550 MOV PRBEXP , -( SP) 
015314 010446 MOV R4,-(SP) 
015316 012746 015416 MOV &PRBMSG, -( SP) 
015322 012746 000005 MOV 65, -(SP) 
015326 010600 MOV SP ,RO 
015330 104415 TRAP CSPNTX 
015332 062706 000014 ADD 014,SP 
1805 015336 FORCEXIT 50$ ; 880 
1806 015346 000404 BR 35 ;8a0 
1807 015350 30$: 
1808 015350 FORCERROR 27$,NOTSSR ; 880 
1809 015360 35%: : 
1810 015360 005204 INC R4 ;NUMBER OF THE NEXT 
1811 015362 020405 CMP R4 RS ;DONE ALL YET? 
1812 015364 002001 BGE 50$ ;B8R IF YES 
1813 015366 000717 BR 20% 3:00 ANOTHER 
1814 015370 50$: PRINTX @PRBTOT,PRMNO ;PRINT TOTAL ERROR COUNT 
015370 013746 002312 MOV PRMNO, -( SP) 
015374 012746 015503 MOV OPRBTOT, -(SP) 
015400 012746 2 MOV 2,-CSP) 
015404 010600 MOV SP ,RO 
015406 104415 TRAP CSPNTX 
015410 062706 000006 ADD 06 , SP 
rth 015414 000207 RTS PC ;RE TURN 
1817 015416 045 116 045 PRBMSG: .ASCIZ ‘NSA BYTE #8D2eA EXPD: SO038A RECV: SO3SA xXOR: 803 


KS 


TSV3 - GLOBAL AREAS MACRO M1115 O06-FEB-84 18:04 
PRBY TEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


SEQ 062 


1818 
181 


015505 045 


015550 000000 
015552 000000 


116 


004737 010020 


104425 


004737 007670 


015566 104423 


045 


PRBTOT: yy ‘SNSA NUMBER OF BYTES IN ERROR = D2’ 
PRBEXP: .WORD 0 ;EXPD 
PRBREC: .WORD 0 s;RECV 

.SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 


3* 
; 
;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


* 
; INPUTS: 
: 
; Ri RECEIVED DATA 
$ R2 EXPECTED DATA 
: 
: 
BGNMSG EXPREC 
EXPREC:: 
JSR PC ,.PRIXOR sPRINT THE DATA 
ENOMSG 
L10017: 
TRAP CS$MSG 
SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 


;¢ 
° 
sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 


Ri RECEIVED DATA BYTE 
Re EXPECTED DATA BYTE 


EXPBREC 


BGNMSG 
EXPBREC: : 
JSR PC ,.PRIBXOR 


ENOMSG 
L10020: 
T C$MSG 


-SBTTL RAMERR - PRINT RAM AND PACKET DATA 


3 * 

t 

;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
‘ 

; INPUTS: 


‘ 

; R4 POINTER TO COMMAND PACKET 

" 

; IMPLICIT INPUTS: 

a 

; RAMDATA DATA AS READ FROM THE RAM 
; RAMSIZ NUMBER OF BYTES IN PACKET 


IF RAMSIZ=O THEN DEFAULT TO 8. 


;PRINT THE DATA 


a 


TSv3 - a MACRO M -FEB. : 
RANE RR OBR NT RAR AND PAERET BATA CO-FEB-64 16:08 SEG O65 
1869 $ 
1870 ; IMPLICIT OuTPuTS: . 
1 3 
1872 ; RAMSIZ SET TO 0 ‘ 
1873 + 
1874 
1875 015570 ii BGNMSG RAMERR 
1876 015570 004737 014056 "” JSR PC ,PRAMPKT ;PRINT RAM/PACKET DATA 
1877 015574 ENOMSG 
015574 L10021: 
es 015574 104423 TRAP C$MSG 
1879 .SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
ry : 
é 
1882 ;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
1 ; 
yor ; INPUTS: 
° 
1886 : R4 POINTER TO COMMAND PACKET 
1 3 
1888 ; IMPLICIT INPUTS: 
; 
1890 . RAMDATA DATA AS READ FROM THE RAM 
1891 ; RAMSIZ NUMBER OF BYTES IN PACKET 
1892 : IF RAMSIZ*O THEN DEFAULT TO 8. 
1893 ; ERRHI HIGH ORDER TEST ADDRESS 
1694 ; ERRLO LOW ORDER TEST ADDRESS 
; 
1896 ;IMPLICIT OUTPUTS: 
; 
1898 : RAMSIZ SET TO 0 
1900 oi 
1901 015576 ion BGNMSG RAMTADD 
RAM 28 
1902 015576 004737 010352 JSR PC ,PRITADD ;PRINT TEST ADDRESS 
1903 015602 004737 014056 JSR PC, PRAMPKT ;PRINT RAM/PACKET DATA 
1904 015606 ENDMSG 
5606 L10022: 
a 015606 104423 TRAP C$MSG 
1906 .SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 
ee ; 
; 
1909 ;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
1911 ‘INPUTS: 
; 
1913 ; R1 RECEIVED DATA 
1914 ; R2 EXPECTED DATA 
1915 ; R4 CONTROLLER RAM ADDRESS 
Bi ; 
1918 015610 BGNMSG RAMEXP 


015610 RAME XP: : 


1919 015610 042701 177400 BIC @tC<377>,R1 s;SAVE EXPD RAM DATA BrTE 
1920 015614 042702 177400 BIC @tC<377>,R2 ;SAVE EXPD RAM DATA BYTE 
1921 015620 004737 010144 JSR PC ,PRIRAM sPRINT THE RAM ADDRESS 
1922 015624 004737 010020 JSR PC ,PRIXOR sPRINT THE DATA 
1923 015630 ENDMSG 
0156350 L10023: 
— 015630 104425 TRAP C$MSG 
1925 .SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
1926 3° 
1927 : : 
1928 ;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
1929 ;AND TIMER A,B HEADER MESSAGE 
1930 ; 
1931 ; INPUTS: 
1932 ; 
1933 ; R1 RECEIVED DATA 
1934 ; | Fg EXPECTED DATA 
1935 - 
1936 
1937 015632 BGNMSG TIMEXP 
015632 TIMEXP: : 
1938 015632 PRINTX #@TIMSGO ;PRINT HEADER 
015632 012746 015660 MOV @TIMSGO, -( SP) 
015636 012746 000001 MOV #1,-CSP) 
015642 010600 MOV SP RO 
015644 104415 TRAP © sPNTX 
015646 062706 000004 ADD 04 ,SP 
1939 015652 004737 010020 JSR PC ,PRIXOR sPRINT THE DATA 
1940 015656 ENDMSG 
015656 L10024: 
cose 015656 104423 TRAP Cs$mMSG 
oak 015660 045 116 045 j + -.ASCIZ ‘sNSA TIMER A STATUS IS IN BIT 3sNSA TIMER B STATUS IS IN BIT 2’ 
cv 
am .SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS | 
1946 ;¢ 
1947 ; 
pee ;sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
; 
1950 ; INPUTS: 
1951 : 
1952 ; Ri CONTENTS OF TSSR 
1953 : R2 DATA WRITTEN (8 BITS) 
1954 ; 
1955 ge 
1956 
1957 015760 BGNMSG BADSSR 
015760 BADSSR: 
1958 015760 010246 MOV Ro, -C SP) ;SAVE DATA TRANSFERRED 
1959 015762 042702 177400 BIC 0177400,R2 ;GET JUST ONE BYTE 
1960 015766 PRINTB #XFERASC,R2 
015766 010246 MOV Re, -CSP) 
015770 012746 016020 MOV &XFERASC, -( SP) 
015774 012746 000002 MOV #2, -(SP) 
016000 010600 MOV SP ,RO 


ABs PUOBALEPRAS exec REEG BATE °°: 


FEB-84 18:04 


M5 


SEQ 064 


3 ey? Ys on MACRO 
SSR PRINT TSSR ERRORS ON 
016002 104414 
016004 062706 000006 
1961 016010 012602 
1962 016012 004737 ©06020 
1963 016016 
016016 
016016 1044235 
1964 016020 04 116 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1968 
1989 
1990 
1991 
1992 
1995 
1994 
1995 
1996 
1997 
1998 
1999 016054 
2000 016054 
2001 016060 012765 
2002 016066 004737 016330 
20°35 016072 616500 000002 
2004 016076 010004 
2005 016100 042704 76277 
©9006 016104 052704 002200 
2007 016110 020400 
2008 016112 001402 
2009 016114 000241 
2010 016116 000401 
2011 016120 000261 
ey 016122 000207 


113 0O6-FEB-84 18:04 SE 
TA TRANSFERS __ 
TRAP CSPNTB 
ADD 06 , SP 
MOV (SP)+,R2 sRESTORE Ro 
JSR PC,PRITSSR ;sDECODE TSSR CONTENTS 
ENDOMSG 
L10025: 
TRAP C$MSG 
045 xXFERASC: -ASCIZ ‘@NSA Date Transferred = #03’ 
.SBTTL GLOBAL SUBROUTINES SECTION 
;*? 
; THE GLOBAL SUBROUTINES SECTION + THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 
.SBTTL SOFINIT - SO’ T INITIALIZE OF CONTROLLER 
;¢ 
; 
sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
;BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
: 
; INPUTS: 
: 
: RS ADDRESS OF F_2ST REGISTER 
; 
;OUTPUTS: 
: 
$ RO CONTENTS OF TSSR, IF ERROR 
; CARRY SET IF INIT WAS OKAY 
; CLEAR IF FATAL ERROR 
; 
;CALLING ZEQUENCE: 
; 
; MOV @ADDRESS,.RS 
; JSR PC ,SOF INIT 
; BCS CONT INUE 
; ERRDF ;sREPORT FATAL ERROR 
oa 
SOF INIT: : 
SAVREG ; SAVE THE REGISTERS 
000002 MOV #0, TSSRCRS) ; DO THE INIT. 
JSR PC WSITF ; WAIT FOR SSR 
MOV TSSRCRS),RO ;GET THE TSSR REGISTER 
MOV RO,R4 ;TSSR CONTENTS 
BIC @tC<HIADDR!OFL>,R4 
BIS @SSR!NBA,R4G ;R4 HAS EXPECTED CONTENTS 
CMP R4,RO ;ONLY EXPECTED BITS SET ? 
BEQ S$ ;BRANCH IF OKAY 
CLC s;sCLEAR THE CARRY FOR ERROR 
BR 10$ :;GO TO ExIT 
S$: SEC ;SET THE CARRY BIT 
10$: RTS ;sRETURN TO CALLER 


NS 


PC 
.SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 


b6 


- GLOBAL AREAS MACRO M1115 


TSv3 06 -FEB-84 18:04 
CHKAMB - CHECK TSSR FOR AMBIGUITY 


SEQ 066 





2070 


016124 


016222 


016224 


000200 
000001 


000 


100000 
174077 


000200 
000040 
177761 
000016 
000040 
000006 


4 


V THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
_— AMBIGUITY 


V INPUT: 

$ 

: RO CONTENTS OF TSSR 

: 

sOUTPUT: 

: 

: RO CONTENTS OF TSSR 

: 

: CARRY SET - NO AMBIGUITY 

; CLR - AMBIGUOUS CONTENTS 

: 

; 

CHK AMB : 
SAVREG sSAVE THE GENERAL REGISTERS 
MOV RO ,R4 sCONTENTS OF TSSR 
BIT esc ,RO 3IS BIT 15 SET ? 
BNE 5% ;BRANCH IF YES 
BIT e*C<NBALOFL !SSRIMIADOR> y 4 ;ANY OTHER BITS SET ? 
BNE sMUST BE AN ERROR 
BR as¢ sRETURN WITH SUCCESS 

S$: BIT @SSR RO sIS READY BIT SET ? 
BNE 10% sB8RANCH IF READY BIT IS SET. 
BIT eBITS,.RO ‘IS FATAL ERROR BIT SET ? 
BEQ ‘ sERROR IF NOT 
BIC @rCTERCLS,R4 SCLEAR ALL BUT TERMINATION CODE 
CMP R4,016 ;ALL THREE BITS MUST BE SET 
BNE 4038 sERROP IF NOT SET 
BR 45% 30K If ALL ARE SET 

108: BIT eBITS,.RO 3IS FATAL ERROR BIT SET ? 
BEQ 453 sERROR IF BIT IS SET WITH SSR 
BIT oBIT2:B8IT1,RO ‘IS THIS A FUNCTION REJECT 
BNE , 45% ;8R, IF TSSR IS OK 

40%: ae one sAMBIGUOUS CONTENTS 

45%; SEC 3;SHOW SUCCESS - _ AMBIGUITY 

508: RT TURN TO CAL 


S PC RE CALLER 
.SBTTL ENAINT,OSBINT - ENABLE /DISABLE INTERRUPTS 


3 
3 DEFAULT DISPLAY INTERRUPT HANOLERS. 

s IF OISPLAY TIME-OUT, REPORT DEV FATAL, ~ 9 ABORT PASS. 
; OTHERWISE, SAVE DPU REGISTERS AND DISMISS 

3 


; BIT DEFINITIONS FOR “INTMASK” AND "“INTFLAG” BYTES: 

é 
IOKCKIN*8IT7 s DON'T CHECK FOR BAD INTERRUPTS - 
IOKSTP*BITO 3 EXPECT “STOP” INTERRUPT. 


2 
s INTERRUPT MASK -- 
.BY 


SAYS EXPECTING INTERRUPTS 
INTMASK ; TE 0 


TEST WILL. 


1 
4 016225 


016226 


? v16230 


016264 
016266 


016350 
016332 
016552 
016554 
016340 
016544 


105037 


1527357 


000340 


00000 
016225 
00000 


011000 
000002 


002216 
016224 
016225 


ERATNT BSBEAY “"ERRece oPShBCe tat ean ch iS&e 84 18:04 


INTERRUPT FLAG 
intr TFLAG: 


C6 


SEQ 067 


-- SAYS WE GOT ONE CIF POSITIVE) 
BYTE O 


sSAVED INTEPRUPT VECTOR: 
WORD O 


;SUBROUTINE TO ENABLE INTERRUPTS: 


RO, -( SP) 3 SAVE RO 
IVEC ,RO ;GET POINTER TO VECTORS 


@INTR,(RO)> sSET UP INTERRUPT VECTOR 
(SP )+,RO sRESTORE RO 

(SP), -( SP) 

00,2( SP) ;SET CPU TO LEVEL O 


TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
(SP), -(SP) 


ePRIO7, 2(SP ) 

INTR - INTERRUPT HANOLERS 

INTR sDEF INE INTERRUPT ENTRY 

#1, INTRECV sSET FLAG TO SHOW INTERRUPT RECEIVED 
INTFLAG sCLEAR FLAG TO SAY WE GOT INTERRUPT 
@IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 


is 38R IF YES 
@IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 


INTVEC: . 

;SAVE CPU PC 

INTCPC: .WORD 

ENAINT: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

3 SUBROUT INE 

DSBINT: MOV 
MOV 
RTI 
. SBTTL 
BGNSRV 

INTR:; 
MOV 
CLRB 
BITB 
BNE 
BISB 
ENOSRV 

L. 10026: 
RTI 
. SBTTL 

° 

: SUBROUTINE TO 

9 

; INPUTS: 

3 

: RS 

4 

;OUTPUTS: 

H 

; 0 

3 CARRY 

é 

‘ 

WAITF:: BR 
BRE AK 
TRAP 

18: MOV 

2s: MOV 
TSTB 


WAI TF - WAIT FOR SUBSYSTEM READY 
WAIT FOR THE SUBSYSTEM READY FLAG 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF LAST TSSR READ 
SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 


1$ sNOP WHEN SUPER FIXED 
; DO A SUPVSR BREAK FIRST. 


CsBRK 
#11000, -( SP) 325-APRIL-83 REV 8 - 1100 MSEC TIMER 
TSSRCRS),RO sREAD THE TSSR REGISTER 


RO sTEST FOR READY BIT SET 


2124 
2125 
2126 


00000} 
002116 
177772 
177756 


016350 
016124 
100000 
074000 


38: 
4%: 


3¢ 


D6 


Livi TOBA APBA suns RERRBASES °6-FEB-84 10:00 


BMI 38 

DELAY 1 

MOV @1,(PC + 
-WORD O 

MOV LSOLY,(PC)> 
.WORD O 

DEC -6(PC) 

BNE .-4 

DEC -22(PC) 

BNE .*” 

DEC (SP) 

BNE 2$ 

CLC 

BR 4$ 

SEC 

DEC (SP )- 

RTS PC 

.SBTTL CHKTSSR - CHECK 


SEQ 066 


s EXIT ON STOP FLAG. 
; WAIT 100 USEC 


sREOUCE DELAY COUNT 

sRETRY UNTIL TIMER EXPIRES 

s C = 0, CONTROLLER STILL RUNNING... 

3...OR HUNG-UP AFTER 3500 MSEC. 

s C = 1, CONTROLLER IS STOPPED. 

sRESTORE STACK WITHOUT CHANGING CARRY BIT 


TSSR FOR READY 


5 
;THIS ROUTINE WAITS FOR READY IN THE TSSR 
;AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


; 
; INPUT: 
; 
; 


é 
sOUTPUT: 


10$: 


15$: 
208: 


RS ADDRESS OF CSR REGISTERS 
RO CONTENTS OF TSSR 
CARRY SET - OKAY 
CLR - NOT READY AMBIGUOUS, OR SC SET 
JSR PC .WAILTF ;WAIT FOR READY 
BCC O$ ;B8RANCH IF TIME OUT 
JSR PC, CHKAMB ;TSSR AMBIGOUS? 
BCC 10$ ;8R IF YES 
BIT @sc ,RO ;SPECIAL CONDITION SET? 
BEQ 15$ ;8R IF NO 
BIT ®<SCE!BIE!RMR!INXM>,RO ;ANY ERROR BITS SET? 
BEQ 15$ ;8R IF NO 
CLC 3;SET FAILURE 
BR 203 3 
SEC 3;SET SUCCESS 
WT ;sRETURN TO CALLER 


S PC 
~SBTTL XNXM 


- CHECK FOR NONEXISTENT MEMORY 


i 
; ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (RO). 
s ON RETURN, IF “C” = 1, (R1) * NEXM ADDRESS. 


: 
; 
;CALL: 


age -" 0, 
MOV ADR1,R1 


ALL ADORESSES OK, 


Tsv5 
KNXM 


2173 
2174 


- GLOBAL ARE 
- CHECK F 


012737 
012737 


005737 


OR NONEXISTENT Me 


016510 000004 
000200 000006 


000002 


016520 


000004 


002162 
002176 
002210 


5 06-FEB-84 18:04 


MOR Y 

: MOV ADR2,R2 

; JSR PC ,NXM 

; RE TURN 

’ 

XNXM: MOV 623 ,804 
MOV OPRIO4 , 806 
CLR R3 

1$: TST (R1) 
CMP R1,R2 
BEQ 3% 
ADD @2,R1 
BR i$ 

2s: COM R3 
MOV 033$,(SP) 
RTI 

3$; CLRVEC 04 
MOV 04 ,RO 
TRAP CsCvEC 
TST RA 
BEQ 4 
SEC 
RTS PC 


E6 


SEQ 069 


sTEST “C” AND PROCEED. 


s SET BUSERR VECTOR. 


sFLAG. 

sTEST THE ADDRESS(ES). 

;IF ANY TRAP, CONTINUE AT 23. 
;OTHERWISE, CONTINUE HERE. 
;8R IF FINISHED (NO NEXM’S). 
;SET NEXT ADDRESS... 

3...AND CONTINUE. 


sGOT ONE, SET FLAG... 
3...AND DISMISS INTERRUPT... 
3...AND GIVE BACK THE VECTOR. 


sDID WE CATCH ONE ?? 
sNO, “C” = O, SKIP NEXT. 
sYES, "CC" = 1, (RL) = NEXM ADOR, 


.SBTTL TSTLOOP - CHECK ITERATION COUNT 


3*¢ 
; 
: 
: 
: 
‘ 
‘ 
T 


STLOOP: : 


1$: CLC 


23: SEC 
3$: RTS 


. SBTTL 
INCREMENT 


INPUT: 
RO 


PC 


TSTSETUP 


SUBROUTINE TO EXECUTE TEST ITERATIONS. 
EXIT WITH “C” SET IF LOOPS ALLOWED ANO LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 


CALL: LOOPTO ARG 


; ITERATIONS INHIBITED? 
; YES. 


; NO. 
;LOOPS DISALLOWED IN QUICK PASS. 
; BUMP LOOP COUNTER. 


;LOOP OISALLOWED, OR DONE. 
;LOOP ENABLED. 


- PRINT TEST NAME AND INIT ERROR COUNTS 


o 

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
“TESTK” TO INDICATE THE NUMBER OF TESTS 

IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 


POINTER TO TEST ID ASCIZ STRING 


3 - GLOBAL AREAS 


TSTSETLP 


016570 
016570 


016732 


000000 
012737 


013700 
104451 


104444 
000423 


104421 
032700 
001412 
011600 


010046 
012746 
012746 
010600 






003146 
017036 
005 766 
016224 
002174 


003106 


160000 


160001 


177777 


002174 


001000 


016764 
000002 


MACRO M 
- PRINT TEST NAME AND 


F6 


-FE 8:04 SEQ 070 
Ano tht ER OR BoonTe 
;OUTPUT: 
; 
; RS ADDRESS OF FIRST DEVICE REGISTER 
; 
; IMPLICIT OUTPUTS: 
a 
; TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
. 
;SIDE EFFECTS: 
3 
; INTERRUPT LEVEL < RASIED TO LEVEL OF 
: THE DEVICE UNDER TEST 
é 
3 - 
TSTSETUP: : 
MOV RO, -C SP) ;SAVE THE TEST ID MESSAGE 
CLR SIFLAG ; CLEAR “SOFT INIT” FLAG 
CLR ERRK ; CLEAR LOCAL ERROR COUNTER. 
CLR EXTA ; CLEAR ERROR EXTENSION FLAG. 
CLRB INTMASK ; CLEAR INTERRUPT MASK (CHECK ERROR) 
MOV UNITN,RO ; GET THE UNIT NUMBER 
ASL RO ; AND MAKE IT A WORD OFFSET. 
TST NODE V ; OID STARTUP FIND THE DEVICE? 
BEQ a3 ; BR IF YES 
BPL 3$ ; BR IF NOT IDOLE 
003170 BIS #160000, ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
ERROF 1,NXR, NXRERR ; NO DEVICE HERE -- PRINT IT 
TRAP C SERDF 
. WORD 1 
. WORD NXR 
— —_— 
003170 538: BIS #160001 ,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
ERROF 2. NOINIT ; DEVICE NOT IDOLE 
TRAP CSEROF 
. WORD 
.WORD NOINIT 
. WORD 
003104 2%: MOV @-1,0UFLG ; DROP THE UNIT 
000U UNITN 
MOV UNITN,RO 
TRAP CsD00U 
DOCLN ; ABORT THE PASS 
TRAP CSOCLN 
BR 5$ 
4$; RFLAGS RO ; GET THE OPERATOR FLAGS. 
TRAP CSRFLA 
BIT OPNT ,RO ; PRINT THE TES” NUMBERS? 
BEQ 1$ ; BR IF NO 
MOV (SP),RO ;GET THE ID MESSAGE 
PRINTF @TNAM,RO ;DISPLAY THE TEST ID 
MOV @TNAM, -( SP) 
MOV 02, -CSP) 
MOV SP ,RO 


T 
T 


Vv 
T 


Setup PRI 


016734 
016736 


017124 
017130 
017132 
017136 
017140 
017144 
017146 
017152 
017154 
017156 
017160 


017162 
017164 
017170 
017172 
017176 
017202 
017206 


NT TeST NAME 


012746 


He ANO ATT ERROR CounTS°* 


000006 
002206 


045 


040 
122 


1$; 


5$: 


TNAM: 


IF 


1$: 


ERRK: 
ESUM: 


EMAXDU: 


STENOD: 


G6 


SP 
CSRADOR ,RS 
PC 

‘'SSSTSA Test’ 
TSTEND 


SEQ 071 


BUMP TEST COUNTER. 


sPRIORITY THAT OF DEVICE 


sFIX UP THE STACK 


ADDRESS OF TSV REGISTERS ON UNIBUS 


- PRINT ERRORS RECEIVED 
AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
NORMAL 


ERROR REPORTING IS DISABLED (FLA: IER). 


BR IF “IER” NOT SET. 
PRINT ERROR COUNT. 


LOCAL ERROR COUNT. 


ZERROR LIMIT REACHED -- DROPPING UNIT/ 


- INCREMENT LOCAL ERROR COUNT 


3;* 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


- 
INCERK : 


1%: 


CKEMAX: 


RFLAGS RO 
TRAP CSRFLA 
BIT RO,@IER 
BEQ i$ 
PRINTF @ESUM,ERRK 
MOV ERRK , -( SP 
MOV @2,-CSP) 
MOV RO 
TRAP CSPNTF 
ADD #6, SP 
RTS PC 
ASCIZ /#A SD08A ERRORS/ 
ASCIZ 
EVEN 
-SBTTL INCERK 
INC ERRK 
MOV RO, -C SP) 
MOV UNITN,RO 
ASL RO 
ADD GERTABL ,RO 
INC CRO) 
BIT 07777,CRO) 
BNE 1$ 
DEC (RO) 
MOV (SP )+,RO 
RTS 
MOV UNITN,RO 
ASL RO 
MOV ERTABL(CRO),RO 
BIC #170000, 
CMP RO, GERRMAX 
BHIS 1$ 


INCREMENT LOCAL ERROR COUNT 
SAVE RO 

GET UNIT NUMBER, 

.-» AND MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 
INCREMENT THE DEVICE ERROR COUNT 
se THE FIELD? 


YES -- = IT UWP TO 7777. 
RESTORE R 
RE TURN 1O CALLER, 


SAVE RO 

GET UNIT NUMBER 

... AND MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
BR IF YES 


H6 
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TReERK  OFNERENENT LOCAL ERROR COUNT 
2315 017210 023737 017036 002164 CMP ERRK , LERRMAX ; IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
2316 017216 103417 BLO 2s ; BR IF NO 
2317 017220 1$: RFLASS RO ; GET OPERATOR FLAGS 
017220 104421 TRAP CSRFLA 
2318 017222 032700 000040 BIT @IDU,RO s IS DROPPING INHIBITED? 
2319 017226 001013 BNE 2s ; BR IF YES. 
2320 017230 012737 177777 003104 “OV @-1,0UFLG ; NO -- DROP THE UNIT 
2321 017236 ERROF 4,EMAXDU 
017236 104455 TRAP CSERDF 
017240 000004 .WORD 4 
017242 017057 .WORD EMAXDU 
017244 000000 .WORD O 
2322 017246 DODYU UNITN 
017246 013700 002174 MOV UNITN,RO 
017252 104451 TRAP CsD00uU 
2323 017254 DOCLN 
017254 104444 TRAP CSOCLN 
2324 017256 012600 2s: MOV (SP )+,RO ; RESTORE RO 
2325 017260 000207 RTS PC ; RETURN TO CALLER 
osae .SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
3; * 
ty. ; CHECK IF UNIT SHOULD BE DROPPED 
5° 
2330 017262 010046 CKDROP: MOV RO, -( SP) 
2331 017264 FORCERROR 1$,NOTSSR 
2332 017274 RFLAGS RO 
017274 104421 TR CSRFLA 
2333 017276 032700 000040 BIT @IDU,RO 
2334 017302 001010 BNE i$ 
2335 017304 011600 MOV (SP),RO 
2336 017306 012737 177777 003104 MOV @-1,0UFLG 
2337 017314 DODU UNITN 
017314 013700 002174 MOV UNITN,RO 
017320 104451 TRAP CsD0DuU 
2338 017322 DOCLN ;ABORT THE PASS 
017322 104444 : TRAP CSDCLN 
2339 017324 012600 1s: MOV (SP )+,RO 
2340 017326 000207 RTS pc 
2341 
2342 
tt .SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
; 
bee ; SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 
; 
2347 017330 CONFIG: 
2348 017330 004737 016054 JSR PC,SOFINIT 
2349 017334 000207 RTS PC 
coe .SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
’ 
toy ; SUBROUTINE - ENABLE MEM MGT. 
; 
2354 017336 005737 003124 KTON: TST KTFLG ; GOT KT? 
2355 017342 001403 BEQ 1$ ; NO. 
2356 017344 012737 000001 177572 MOV @1,SRO ; YES. ENABLE KT11. 
toh 017352 000207 1s: RTS PC 


2359 ; 


16 
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K TON, KTOFF - ENABLE /DISABLE MEMORY MANAGEMENT 
toy ; SUBROUTINE - DISABLE MEM MGT. 
; 
2362 017354 005737 003124 KTOFF: TST KTFLG ; GOT KT11? 
2363 017360 001405 BEQ 1$ s NO. 
2364 017362 000240 NOP 
2365 017364 000240 NOP 
2366 017366 012737 000000 177572 MOV #0, SRO ; DISABLE KT. 
2367 017374 000207 1$;: RTS PC 
2368 .SBTTL SETMAP - SETUP PAR6 MAPPING 
23569 
7 : 
e372 ;THIS ROUTINE SETS UP KERNEL PARE TP HANDLE 
2373 ;AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
4 da :;IS RETURNED BIASED TO PARE. 
7 : 
2376 ; INPUTS: 
2377 : 
2378 : RO HIGH ORDER ADDRESS BITS 
2379 : Ri LOW ORDER ADDRESS BITS 
2380 3 
tos sOUTPUTS: 
2385 ; RO OFFSET INTO BLOCK WITH PARG6 BIAS (I.E. THE ADDRESS) 
2384 3 CARRY SET IF SUCCESS 
2385 ; CLR IF ERROR 
2386 :- 
2387 017376 SE TMAP: 
2388 017376 SAVREG ;SAVE R1-R4 UNTIL NEXT RETURN 
2389 017402 005737 003124 TST KTFLG s;SYSTEM HAVE ABOVE 28K? 
2390 017406 001433 BEQ 10$ ;6R IF NO 
2391 017410 010102 MOV R1,R2 ;SAVE LOW ORDER BITS 
2392 .REPT 6 
2393 ASR RO ;CONVERT WORD ADDRESS TO 32W BLOCKS 
2394 ROR Ri ;MAKE IT DOUBLE PRECISION 
2395 ; . ENOR 
2396 017442 042701 000177 BIC @177,R1 ;ALINE FOR LOWER 4K BOUNDARY 
2397 017446 020137 003124 CMP R1,.KTFLG s;HIGHER THAN EXISTING MEMORY? 
2398 017452 103011 BHIS 10$ ;B8R IF YES 
2399 017454 010137 172354 MOV R11, BOK IPARG ;SETUP MAPPING REGISTER PARG 
2400 017460 042702 160000 BIC #160000 ,R2 ;SETUP DISPLACEMENT IN PAGE 
2401 017464 062702 140000 #140000 ,R2 ;ADD IN PARG6 BIAS 
2402 017470 010200 MOV R2,RO ;RETURN IN RO 
2403 017472 000261 SEC ;SET SUCCESS 
2404 017474 000401 BR 15$ : 
2405 017476 000241 10$ CLC ;SET FAILURE 
2406 017500 000207 15% RTS PC ;RE TURN 
eed .SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
3 * 
rH ; FILL MEMORY WITH A BACKGROUND PATTERN 
; 
2411 ; INPUTS: 
24le2 ; 
2413 ; RO = BACKGROUND PATTERN 
2414 ; FREE * FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
2415 ; KTFLG *« SET TO HIGHEST MEMORY LOCATION IF » 28K, 
; 


TSv3 


- GLOBAL AREAS 
FILME 


MACRO M1115 


- FILL MEMORY WITH BACKGROUND PAT 


017616 


017554 


003116 
003120 


003124 
017336 
003144 


017376 


177572 
177761 
000016 
003140 


172554 


000020 
017622 
017354 


1723554 


003124 


00 7600 


172516 


10%: 


3538: 


ILLMEM: 


06 -FEB-84 18:04 
TERN 


RTS 
. SBTTL 


FREE 
KTFLG 


J6 


PC ,.SETMAP 
R3,CRO)-> 

RO, #160000 

50$ 

#20000 ,RO 
€200 , BOK IPARG 
—— 


~R4 
@177761,R4 
@16,R4 
50% 


T2356 


45% 
@OK IPARG , 27600 


30$ 
PC .KTOFF 
CMPMEM 


SEQ 074 


;SAVE R1L-RS UNTIL NEXT RETURN 
sDISABLE KT. 

SCOP Y TEST PATTERN 

;GET FIRST FREE LOCATION 

;SIZE OF FREE SPACE BELOW 28K. 
;STORE A BACKGROUND WORD 

;DONE ALL MEMORY IN FREE SPACE? 
;B8R IF NO 

; GOT KT? 

; NO. GET OuT. 

; YES. ENABLE KT. 

sHIGH ORDER ADDRESS START 

;GET »28K START ADDRESS (IN 32wW BLOCKS) 


;CLEaR C BIT 
;CONVERT BLOCKS TO WORDS 
;MAKE IT DOUBLE PRECISION 


;SETUP PAR6 MAPPING REGISTER 

;STORE TEST gb IN ++ ADDRESS 
+e 4 PAR6 MAPPING AREA 

;BACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK »>28K. 

sEND OF MEMORY? 

;8R IF YES 

:11/23A? 

;NO KEEP GOING 

;GET SRO CONTENTS 

;CLEAR ALL BUT PAGE NUMBER 

;SEE IF PAGE 7 

sEXYIT IF THERE 

311/238? 
s;NO KEEP GOING 
— 18 BITS? 


37 

;NO KEEP GOING 

;SET 22 BIT RELOCATION 
sKEEP GOING ON ETC. 

; DISABLE KT. 


- COMPARE MEMORY TO BACKGROUND PATTERN 
" COMPARE MEMORY WITH A BACKGROUND PATTERN 

INPUTS: 
RO = BACKGROUND PATTERN 


* FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
* SET TO HIGHEST MEMOR;: LOCATION IF » 25K. 
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CMPMEM COMPARE MEMORY TO BACKGROUND PATTERN 
2474 ; OUTPUTS: 
2475 $ 
2476 : CARRY - SET IF NO ERROR 
2477 : CARRY - CLR TF ERROR 
2478 ; 
2479 ; IMPLICIT OUTPUTS: 
2480 3 
2481 ; ERRHI - ERROR HIGH ADDRESS 
2482 ; ERRLO - ERROR LOW ADDRESS 
2483 : EXPD - EXPECTED DATA 
2484 : _ RECV - RECEIVED DATA 
2485 ke 
2486 017740 CMPMEM: 
2487 017740 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
2488 017744 010003 Vv RO,RS ;COPY TEST PATTERN 
2489 017746 004737 017354 JSR PC .KTOFF ;DISABLE KT. 
2490 017752 013701 003116 MOV FREE ,R1 ;GET FIRST FREE LOCATION 
2491 017756 013702 005120 MOV FRESIZ,R2 ;SIZE OF FREE SPACE BELOW 28K. 
2492 017762 020311 10$: CMP R35,CR1) sFREE SPACE LOCATION EQUAL TO EXP0D? 
2493 017764 001411 BEQ 15% ;8R TF YES 
2494 017766 010137 002232 MOV R1,ERRLO :;SAVE ADDRESS IN ERROR 
2495 017772 002230 CLR E I 3;NO HIGH ADDRESS 
2496 017776 010337 002224 MOV R3,ExPD ;SAVE EXPD FOR ERROR REPORT 
2497 020002 011137 002226 MOV (R1),RECV ;SAVE RECV FOR ERROR REPORT 
2498 020006 000474 BR $ ; 
2499 020010 005721 158: TST C(R1)-« sPOINT TO NEXT ADDRESS 
2500 020012 005302 DEC 2 ;DONE ALL MEMORY IN FREE SPACE? 
2501 020014 003362 BGT 10$ ;B8R IF NO 
2502 020016 005737 003124 TST KTFLG ; GOT KT? 
2503 020022 001472 BEQ 55% ; NO. GET OUT. 
2504 020024 004737 017336 JSR PC .KTON ; YES. ENABLE KT. 
2505 020030 00 CLR RO ;HIGH ORDER ADORESS START 
caoe 020032 013701 003144 _ = PST32W,R1 ;GET »>28K START ADDRESS CIN 32W BLOCKS) 
2508 ROL R1 ;CONVERT BLOCKS TO WORDS 
2509 ROL RO ;sMAKE IT DOUBLE PRECISION 
2510 .ENOR 
2511 020066 042701 000177 BIC @177,R1 ;ALINE 4K BOUNDARY 
2512 020072 010046. MOV RO, -C( SP) ;SAVE HIGH ORDER 
2513 020074 010146 MOV R1,-CSP) ;SAVE LOW ORDER 
2514 020076 737 017376 JSR PC ,SETMAP ;SETUP PAR6 MAPPING REGISTER 
2515 020102 010004 MOV RO,R4 :;COPY ADDRESS BIASED TO PARG6 
2516 020104 012601 MOV (SP)+,R1 ;sRESTORE LOW ORDER IN NON PARG6 FORMAT 
2517 020106 012600 MOV CSP )+,RO ;RESTORE HIGH ORDER IN NON PARGE FORMAT 
2518 020110 020314 30%: CMP R3,CR4) ;ABOVE 28K LOCATION EQUAL EXPD? 
2519 020112 001411 BEQ 32% ;8R IF YES 
2520 020114 010037 002230 MOV RO, ERRHI ;SAVE HIGH ORDER IN ERROR 
2521 020120 010137 002232 MOV R1,ERRLO ;SAVE LOW ORDER IN ERROR 
2522 020124 010337 002224 MOV R3,EXPD ;SAVE EXPD FOR ERROR REPORT 
25235 020130 011437 002226 MOV CR4), RECV ;SAVE RECV FOR ERROR REPORT 
2524 020134 000421 BR 50$ ; 
2525 020136 062701 000002 32%: ADD @2,R1 ; UPDATE NON PARG6 ADDRESS 
2526 020142 005 ADC RO sMAKE IT DOUBLE PRECISION ADD 
2527 020144 062704 000002 ADO @2,R4 ; UPDATE PAR *ORMAT ADDRESS 
2528 020150 020427 160000 CMP R4, @1600U0 ;END OF PAR6 MAPPING AREA? 
2529 020154 103755 BLO 30$ ;eR IF NO 
2530 020156 162704 020000 SUB #20000 ,R4 ;BACKUP INTO PAR6 MAPPING BEGIN 


L6 
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CMPMEM OR OP ARE REMORY T ACKGROUND PATTERN cae camsaslictiie 
2531 020162 062737 000200 172354 ADD @200,8@KIPAR6  ;POINT TO NEXT 4K BLOCK >28K. 
2532 020170 023737 172354 003124 CMP BOKIPARG,KTFLG ;€ND OF MEMORY? 
2533 020176 101744 BLOS 30% ;6R IF NO 
2534 020200 004737 017354 50$: JSR PC .KTOFF 3; TURN OFF MEMORY MAPPING 
2535 020204 000241 cLCc 3SET FAILURE 
2536 020206 000403 BR 60$ : 
2537 020210 004737 017354 55%: JSR PC .KTOFF ;TURN OFF MEMORY MAPPING 
2538 020214 000261 SEC ;SET SUCCESS 
2539 020216 000207 60$: RTS PC 
2540 .SBTTL REGSAV - SAVE R1-RS ON STACK 
2541 3° 
2542 3 
2543 ;ROUTINE TO 
aan ;SAVE R1 THROUGH RS ON THE STACK 
é 
2546 ;CALLING SEQUENCE: 
2547 ; 
Spe: : JSR RS ,REGSAV 
a 
2550 ;THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
2551 ;THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
2552 ;THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
fee ;REGISTERS. 
; 
2555 ;THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH 4RE 
2556 sCALLED VIA A JSR PC INSTRUCTION 
2557 ; 
2558 — 
2559 
2560 020220 REGSAV: 
2561 020220 010446 R4,-(SP) 
2562 020222 010346 MOV R3,-(SP) 
2563 020224 010246 MOV R2,-(SP) 
2564 020226 010146 MOV R1,-(SP) 
2565 020230 010546 MOV RS, -(SP) 
2566 020232 016605 000012 MOV 10.(SP),R5 
2567 020236 004736 JSR PC ,.a(SP)- 
2568 020240 012601 MOV (SP)+,R1 
2569 020242 012602 MOV (SP)+,R 
2570 020244 012603 MOV (SP )+,R3 
2571 020246 012604 MOV (SP)+,R4 
2572 020250 012605 MOV (SP)+,R5 
2573 020252 000207 RTS PC 
Bt .SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3 * 
2576 ; 
ios sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
~ + 
2579 ; INPUTS: 
2580 ; 
2581 3 NONE . 
2582 : 
2583 sOUTPUTS: 
2584 ; 
Eps ; RO OCTAL NUMBER FROM THE OPERATOR 


é 
2587 ;CALLING SEQUENCE : 


- GLOB 


GET 


105 


010002 
010205 
005715 
001412 


012346 
012746 
012746 
010600 


020310 


116 


020522 
000002 


124 


10000$ : 


8 BIT PATTERN FROM OPERATOR 18104 


JSR 


M6 


PC ,GETPAT 


SEQ 077 


SAVE THE GENERAL REGISTERS 


> 
DATASC ,PATDAT ,O,377,0,377,NO0 


SAVREG 

GMANID 

TRAP C $GMAN 
BR 10000 $ 
-WORD PATDAT 
-WORD TSCODE 
-WORD DATASC 
-WORD 377 

-WORD TSLOLIM 
-WORD TSHILIM 
BNCOMPLE TE i$ 
BCC i$ 

MOV PATDAT,RO 
RTS PC 


;¢ 
;sLOCAL DATA AREA 


PATDAT: 
DATASC: 


3° 


. WORD 


0 
-ASCIZ ‘ENTER DATA PATTERN’ 
VEN 


 gRETRY IF ERROR 


;sDATA PATTERN FROM OPERATOR 
;sRETURN TO CALLER 


; TEMPORARY STORAGE FOR DATA 


EVE 
.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


; 
;ROUTINE TO ISSUE A MENU AND GET 
;THE OPERATOR'S RESPONSE. 


é 
; INPUTS: 


RO 
Ri 


’ 
;OUTPUTS: 


RO 


ADDRESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 


NUMBER OF THE OPERATOR'S SELECTION 


RO,R2 
R2,R5 
CR3) 


3$ 


#2, -(€SP) 
SP ,RO 


;SAVE GENERAL REGISTERS 
;SAVE THE MENU ADDRESS 





I ? 
;BRANCH IF ALL LINES DISPLAYED 
;DISPLAY THE MENU 


TSv3 
GE TSEL 


2631 
2632 


- GLOBAL AREAS 
- ISSUE 


101411 


012746 
012746 


104450 


MACRO M1115 0O6-FEB-84 18:04 
MENU AND GET OPERATOR RESPONSE 


000006 


020556 


045 
164 


3$: 


100018: 


N6 


SEQ 078 

TRAP CSPNTF 
ADD 06, SP 
BR 2$ 
GMANID MENASC,MENRES,D,-1,.0,-1,NO0 

TRAP $GMAN 
BR 10001$ 

. WORD MENRES 

. WORD TSCODE 

.WORD MENASC 

. WORD -1 

. WORD TSLOLIM 

. WORD TSHILIM 
~*~ ao? 1$ ;sRETRY IF ERROR 
MOV MENRES ,RO ;GET THE OPERATOR'S REPLY 
CMP RO,R1 ;COMPARE TO MAXIMUM ALLOWED 
BLOS 5$ ;BRANCH IF OK 
PRINTF @MENERR sDISPLAY ERROR MESSAGE 
MOV @MENERR , -( SP) 
MOV #1, -CSP) 
MOV SP RO 

TRAP CSPNTF 
ADD @4,SP 
BR i$ ;RETRY 
RTS PC ;RETURN TO CALLER 
-ASCIZ ‘sNSA eee Menu Selection Too Large *«e' 
ASCIZ ‘sNsT’ 

ASCIZ ‘Enter Menu Selection: ‘ 

EVEN 

. WORD 0 
SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


: 
sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


. 
; INPUT: 


H 
;OUTPUT: 


NONE . 


CARRY 


) MANUAL INTERVENTION NOT ALLOWED 
1 MANUAL INTERVENTION IS OK 


A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 


ALLOWED 


SAVREG 
MANUAL 
TRAP 


;SAVE THE REGISTERS 


;SEE IF MANUAL INTERVENTION OK 


CSMANI 


6 / 
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CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
2670 020566 BCOMPLETE 18 s;BRANCH IF ALLOWED 
020566 1053411 Bcs is 
2671 020570 PRINTF @NOMAN sPRINT THE WARNING MESSAGE 
020570 012746 020614 MOV @NOMAN , -( SP ) 
020574 012746 000001 MOV 01, -(SP) 
020600 010600 MOV SP ,RO 
020602 104417 TRAP CSPNTF 
020604 062706 000004’ ADO 04 ,SP 
2672 020610 000241 CLC ;CLEAR CARRY FOR ERROR 
oth, 020612 000207 1%: RTS PC ;RE TURN 
ohh 020614 045 116 045 NOMAN: .ASCIZ ‘@NBA e¢¢ Manuel Intervention not Allowed - Test Aborted eee’ 
.@even 
th .SBTTL ENVIRN - SETUP FREE OIAGNOSTIC SPACE 
3 
2679 ; SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
2680 4 
2681 020710 ENVIRN: MEMORY RO 
020710 104431 TRAP CSMEM 
2682 020712 010037 003116 MOV RO ,FREE ; GET 1ST FREE ADDRESS... 
2683 020716 062737 000002 003116 ADD @2 FREE 
2684 020724 011037 003120 MOV (RO), FRESIZ 3...AND WORD COUNT. 
2685 020730 162737 000004 003120 SUB 04 .FRESIZ 
2686 020736 013702 002012 MOV LSUNIT,R2 : T NUMBER OF UNITS 
2687 020742 162737 000007 003120 10%: SU8 @7 FRESIZ : TAKE AWAY 7 WORDS PER UNIT 
2688 020750 005302 DEC Re 
2689 020752 0015753 BNE 108% 
2690 020754 013700 003116 MOV FREE ,RO sGET FIRST FREE ADORESS 
2691 020760 063700 003120 ADO FRESIZ,RO sPOINT TO LAST FREE ADDRESS 
2692 020764 162700 000002 sus @2,R0 s;BACKUP 1 WORD 
2693 020770 010037 003122 MOV RO, FREEHI sSTORE LAST FREE ADDRESS 
2694 020774 000240 NOP PUY IIIT Iii ririririiititiritri iii 
2695 020776 012701 177520 MOV @BDVPCR .R1 sGET BOV11 PCR ADDRESS 
2696 021002 010102 MOV R1,R2 ;COPY TO R2 
2697 021004 062702 000002 ADO @2,R2 3;SET THE RANGE 
2698 021010 004737 016456 JSR PC, XNXM 3SEE IF WE HAVE ONE 
2699 021014 103001 BCC i158 30K TO SET FLAGS 
2700 021016 000445 AR 40% : sRETURN WITH FLAGS CLEAR 
2701 021020 013701 177520 158: MOV wt ge Ri sSAVE PCR CONTENTS 
2702 021024 062701 000001 A0DO 1,R1 3ADO ONE TO IT 
2703 021030 012702 177520 MOV eBDVPCR.R2 sGET BOV11 PCR ADDRESS 
2704 021034 005212 INC (R2) ;TRY TO WAITE TO IT 
2705 021036 013703 177520 MOV BOVPCR ,R3 ;GET RESULTS 
2706 021042 020103 CMP R1,R35 s0I0 IT CHANGE? 
2707 021044 001017 BNE 208% 3NO, MUST Be 11/238 
2708 021046 005237 003136 INC T23A sSET THE FLAG 
2709 021052 042737 170000 002120 BIC #170000 ,L SH IME ) SUPERVISOR COULD BE WRONG 
2710 021060 000240 NOP :;B8R 408 FOR RELEASE 
2711 021062 PRINIF 048186 ;TELL THE SYSTEM TYPE 
021062 012746 005550 MOV 0M8186, -( SP) 
021066 012746 000001 MOV @1,-CSP) 
021072 O MOV SP ,RO 
021074 104417 TRAP CSPNTF 
021076 062706 000004 ADD 04 ,SP 
2712 021102 000413 BR 40% ;RE TURN 
2713 021104 005237 003140 208: INC T2368 3;SET THE FLAG 


2714 021110 000240 NOP 3BR 408 FOR RELEASE 


2715 


O2ille 
O211lle 
021116 
021122 
021124 


021126 
021132 


021154 
021154 
021140 
021144 


021266 


012746 
012746 


012716 
000002 


010037 
000207 


005641 
000001 


000004 


021252 
177572 


002120 
000177 
000004 


172340 
077406 


000200 
002000 
177600 
021260 


000004 


ERvERN RPE FRE oral AbSPrE aAiice 


40%: 


3° 


FEB-84 18:04 


PRINTF 


C/ 
omMé189 
omMé6i89, -€SP) 


@1,-(SP) 


PC 
KTINIT 


i 
sROUTINE TO INI) KT-11 


KTINIT: 


18: 


‘eietiea’ 
t uTpurs, 


INVERT: : 


KTFLG 

K TENABLE 

eerarer 
§ 

BOERRVEC ,RO 

02% ,QOERRVEC 

8eSRO 


LSHIME ,KTFLG 
@177,KTFLG 
oe » BCERRVEC 
OK IPARO ,R1 


077406, .40(R1) 
RO,CR1)> 


is 

#177600, -(R1) 
9% 

06% ,(SP) 


RO, B@ERRVEC 
PC 


sTELL THE SYSTEM TYPE 


sRE TURN 


INIT >26K MEMORY FLAG 
INIT TEST >28K FLAG 
GOT ENOUGH MEMORY ( >28K)? 


NO. 
SAVE OLD -y* + PTR. 


SEQ 060 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


SET ERR VEC P 
GOT KT11? 

(TRAP IF NO). 
YES. SET KT FLAG. 


RESTORE OLD ERR VEC PTR. 
RO = AR DATA 
Ri = KI REGS 
SET DESCRIPTOR REG. 


"PTR. 


SET KIPAR REG. 


BUMP AR DATA BY “4K”, 


AT "I/0"? 


NO. 
YES. SET KTPAR7 FOR I70. 


SET UP RE 


TURN 
RTI TO NEXT LOCATION 
RESTORE OLD ERR VEC PTR. 


SUBROUTINE TO SET EXTENDED FEATURES SWITCH 


Requires that SOFINIT and WRICHR nave been done previous to call. 


CURRENT UNIT NUMBER 


Tne Extended Features Switch is set. 


D/ 


TSV3_ - R , ; 

PENT ORE BPR EE, menOAlAaNAdt ren PORE ERs Pando: 4 SEQ 061 
2767 1 005737 002220 TST EXTFEA +s IS SWITCH SET? 
2768 021272 1 BNE 18 s YES,EXIT STAGE RIGHT! (or the next one outa town! ) 
2769 021274 012737 100206 021340 MOV #100206 , CMDPKT 3 WRT SUB-SYS MEM CMD 
2770 021302 012737 021350 021342 MOV OWSMBK , CMDPKT +2 s MSG BUF ADDR 
2771 021310 042737 000006 021346 MOV 06 , CMDPKT +6 ; BYTE COUNT 
2772 021316 012737 100010 021350 MOV #100010, WSMBK s INVERT THE SWITCH 
2773 021324 012704 021340 MOV @CMOPKT ,.R4 3 SET CMDPKT INTO RG 
2774 021330 004737 010742 JSR PC ,.WRICHR ; 00 IT 
or 0s 021334 000207 1$: RTS PC 3 RETURN 

6 
coe 3 COMMAND PACKET. 
2778 
fhe 021340 ® <«,+3>E€177774 sMUST BE ON MOD 4 BOUNDRY. 
2781 021340 000000 CMDPKT:: O 31ST WORD IS TSOS COMMAND. 
2782 021342 000000 0 32ND WORD IS THE BUFFER LOW ADDRESS. 
2783 021344 000000 0 35RD WORD IS THE BUFFER HIGH ADDRESS. 
Ahn 021346 000000 0 34TH WORD IS THE BYTE/RECCRO/FILE COUNT. 
the. : WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
2788 021350 000000 WSMBK:: O - giST WORD:: SEL O 
2789 021352 000000 0 “ s2ND WORD:: SEL 2 
2790 021354 000000 0 ‘ 33RD WORD:: SEL 4 
2791 .EVEN 
2792 se 
dae, ; SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NxM 
3 
2795 3 
2796 ; INPUTS: 
2797 sOUTPUTS: 
2798 : The NXMFLG is set if we can test. 
2799 : The NXMLO and NXMHI addresses sre setup. 
2800 3: 
2801 
2802 C21356 MEMCK: ;: 
2803 
2804 021356 SAVREG s;SAVE THE meGES TERS 
2805 021362 005037 003130 CLR NXMFLG ;CLEAR THE FLAG 
021366 005037 003132 CLR NXMLO ;CLEAR THE TEST ADORESS LO 

2607 021372 005037 003134 CLR NXMHI ;CLEAR THE TEST ADDRESS HI 
2808 021376 005737 003140 TST T238 :3IS IT A 11/7236? 
2809 021402 001407 BEO 1$ ;NO 
2810 021404 023727 002120 007777 CMP LSHIME ,07777 ; GREATER THAN 128K 
2811 021412 103406 BLO 2s ; NO 
2812 021414 004737 021532 JSR we ;SETUP THE ADDRESS 
2813 021420 000427 BR ;SET THE FLAG AND EXIT 
2814 021422 005737 003136 1%: TST T23A 3IS IT A 11/723A? 
2815 021426 001413 BEG sNO 
2816 021430 023727 002120 005777 2%: CMP MIME. 05777 sGREATER THAN 96K 
2817 021436 101023 BHI 143 3YES,23A/238 WITH 128K MEMORY 
2818 021440 023727 002120 003777 CMP LSHIME ,@3777 sGREATER THAN 64K BUT LESS THAN 92K? 
2819 021446 103403 BLO 4% 3;NO, CHECK 24K 
2820 021450 004737 021532 JSR PC ,NXMTST ;SETUP THE ADDRESS 
2821 021454 000411 BR 13% ;SET THE FLAG AND EXIT 
2822 021456 023727 002120 001577 4%3: CMP L $SHIME ,01577 ;GREATER THAN 24K BUT LESS THAN 64K? 
28235 021464 ,.03410 BLO 149 sNO, TELL THEM AND FXIT WITH FLAG CLEAR 


TSV3 
KTINIT 


- GLOBAL AREAS MACRO i125 -FEB- 8:04 SEQ 08 

- SETUP KT11 MEMORY MENT REG TS TERE = 
2824 021466 004737 021532 JSR PC ,.NXMTST sSETUP THE ADDRESS 
2625 021472 062737 000077 003134 ADD 077 ,.NXMHI sFOOL THE 11702 € 11/03 
2826 021500 005237 003150 138: INC NXMFLG ;SET THE FLAG 
2827 021504 000411 BR i5$ sEXIT 
2828 021506 000410 14%: BR 15% sNOP FOR PRINTOUT 
2829 021510 PRINTF @NOMEM ;TELL THEM € EXIT #eeNO PRINTeeees 

021510 012746 005454 MOV ONOMEM, -C SP) 

021514 012746 000001 MOV @1,-CSP) 

021520 010600 MOV ~RO 

021522 104417 TRAP CSPNTF 

021524 062706 000004 ADD 04,SP 
2830 021530 000207 158: RTS PC ;RE TURN 
2831 
2832 i° 
tty ; SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 

‘ 
ots 3 OUTPUTS: NXMLO,NXMHI ;SETUP WITH NXM ADDRESS 
* 

2837 3° 
2838 
2839 021532 013701 002120 NXMTST: MOV LSHIME ,R1 ;GET TOP OF MEMORY 
2840 021536 062701 000200 ADD @200,R1 sMAKE IT I70 BLOCK OR OTHER NXM 
2841 021542 042701 000177 BIC @177,R1 
2842 021546 ©610102 MOV R1,Re2 sRESAVE RESULTS 
2843 000006 .REPT 6 
2844 ASL R1 ;sPUT IN PLACE FOR XFER 
2845 . ENOR 
2846 021564 010137 003132 MOV R1,NXMLO ;SAVE TEST ADDRESS LOW 
2847 000012 .REPT 10. 
2848 AOR Re sPUT IN PLACE FOR XFER 
2849 .ENOR 
2850 021614 042702 177700 BIC @177700,R2 ;D0N'T WANT ILA! 
2851 021620 010237 003134 MOV R2 ,NXMHI ;SAVE TEST ADDRESS HIGH 
2852 021624 000207 RTS PC ;RE TURN 
2853 
2854 
2855 
2856 021626 ENDMOD 


E/ 


F7 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 06-FEB-84 18:04 SEQ 085 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
. -TITLE TSV4 - MISCELLANEOUS SECTIONS 
9 021626 — BGNMOD TSV4 
021626 TSV4:; 


10 


G/ 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1115 -FEB - : 
PROTECT TOR ee Cc AC 1115 06-FEB-84 18:04 SEQ 064 
17 .SBTTL PROTECTION TABLE 
18 021626 BGNPROT 
021626 L$PROT:: 


19 021626 177777 #AL?7777 = «177777 -1, -1. -1., -1 sNO DEVICE PROTECTION REQUIRED. 


. WORD 
20 021656 ENDPROT 


TSv4 


INITIALIZE SECTION 


021772 
021774 
021774 
021776 
021776 
021776 


103031 


104433 


- MISCELLANEOUS SECTIONS 


000055 


000037 


MACRO M1115 


002172 


002012 


003170 


H7 


06 -FEB-84 18:04 


-SBTTL INITIALIZE SECTION 


SEQ 085 


se 
;THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
;AT THE BEGINNING OF EACH PASS. 


5 
;IF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 


; IF 
; 
5 ee 


“CONTINUE”, 


3¢ 
; INSERT TEMPORARY JUMP TO ODT 


40% 


18: 


2%: 


LSINIT:: 


BGNINIT 

CLR EXTFEA 

CLR NXMFLG 
MOV GEPRT1,EPRTSwW 
CLR SIFLAG 

CLR K TENABLE 

CLR RAMSIZ 
READEF @#€F .CONTINUE 
MOV OEF .CONTINUE .RO 
TRAP CSREFG 
BNCOMPLETE 1% 

cc i$ 

CMP UNITN,LSUNIT 
BHIS 4s 

TST DUFLG 
BMI NXTU 
MOV UNITN,R1 

ASL R1 

TST ERTABL(R1) 
BEG SETU 
BIT 281114, ERTABL(R1) 
BNE NXTU 
ExIT INIT 

TRAP CSExIT 

. WORD L10030- 
READEF O€F .NEW 
+ OEF .NEW,RO 

CSREFG 

BNCOMPLETE NXTU 
BCC NXTU 
READEF o€F .START 
MOV OEF .START,RO 
TRAP CSREFG 
BCOMPLETE 2$ 
BCS 2s 


READEF 9€F .RESTART 


MOV OEF RESTART ,RO 
TRAP CSREFG 
BNCOMPLETE 31% 

BCC 318 

BRESET 

TRAP CSRESET 


NOTHING IS REQUIRED. 


;SET UP PRIMARY MESSAGE FOR REPLACEMENT 


;CLEAR “SOFT INIT” FLAG 


;CLEAR TEST ABOVE 28K FLAG 
;CLEAR RAM SIZE FOR RAMERR ROUTINE 


;UNIT es 
: . 
s;DROPPED UNIT? 
;B8R IF YES 


; DROPPED ? 


;00 NOTHING IF “CONTINUE”. 


; TAKE NEXT UNIT IF NOT NEW PASS. 


;1ST PASS, BUS-INIT... 
;BUS RESET. 


TSV4 


INITIALIZE SECTION 


022000 
022004 
022010 
022014 


022160 


022162 
022162 
022164 
022166 


022166 
022166 
022172 
022174 
022174 
022176 
022202 
022206 
022210 


005037 


004737 


005037 


010157 


- MISCELLANEOUS SECTIONS 


003372 
177777 
020710 
021154 
003170 
003370 


002176 
022154 


177777 
002212 


002174 
002174 
177777 


002012 
002212 


000100 


002174 


003104 
002212 


002200 


MACRO M1115 


002176 


002174 


4$: 
NEWPAS: 


NXTU: 


108: 
SETU: 


CLR TSTCNT 

CLR FATFLG 

CLR T23A 

CLR T2368 

MOV 0340, -(SP) 

JMP 0.00 

CLR SKIPT 

MOV @-1,.QvP 

JSR PC ,ENVIRN 
JSR PC .KTINIT 

MOV GERTABL ,RO 

CLR CRO)> 

CMP RO, OERTABE 

BLO 30 

BR 43 

CLR QvPp 

JMP PASRPT 

MOV ®-1,UNITN, 

CLR DEVCNT 

BREAK bo 

TRAP C$6RK 

INC UNITN 

CMP UNITN,LSUNIT 

BLO SETU 

MOV @-1,  DUFLG 

BR 118 

DOCLN 

TRAP CSOCLN 

NOP 

CMP LSUNIT,@1 

BLOS NEWPAS 

TST DEVCNT 

BEQ NEWPAS 

RFLAGS RO 

TRAP CSRFLA 

BIT @ISR,RO 

BNE NEWPAS 

DORPT 

TRAP CsORPT 

BR NEWPAS 

GPHARD UNITN,RO 

~~ UNITN,RO 

C$GPHRD 

BNCOMPLETE NXTU 
BCC NXTU 

CLR DUFLG 

INC DEVCNT 

MOV CRO)+,R1 

MOV R1,CSRADDOR 


06-FEB 84 18:04 


SEQ 066 


sNUMBER OF TESTS RUN IN PASS 
SCLEAR FATAL ERROR COUNT 
sCLEAR 11/723A FLAG 

;CLEAR 11/238 FLAG 


sRETURN TO DEBUGGER 
;;@@ENTER THE DEBUGGER 
;CLEAR THE SUBTEST “SKIPPER” 
;...QUICK VERIFY... 
;SET ENVIRONMENT. 
s INITIALIZE KT MEMORY MANAGEMENT 


;CLEAR THE ERROR TABLE 


;GO REPORT THE STATUS 


;INIT UNIT NUMBER. 
;CLEAR COUNT OF DEVICES RUNNING 


;...AND SET NEXT UNIT NUMBER. 


;ABORT, NO MORE UNITS. 


;4OW MANY — SELECTED? 
;B8R IF ONLY 

;ARE ANY STILL RUNNING ? 
;BR IF NO 


;SHOULD WE PRINT STATISTICS 
;BR IF NO 


;GET UNIT N P-TABLE POINTER, 


;BR IF UNIT NOT AVAILABLE. 
;CLEAR “DROPPED” FLAG. 


;GET 1ST REGISTER ADDRESS 


sADDRESS OF REGISTERS OF UNIT UNDER TES? 


TSV4 


INITIALIZE SECTION 


022214 


022216 
022222 
022226 


022232 


022232 


012001 


010157 
012721 
015721 


015701 


023727 


012757 


012700 
104441 


104411 
045 


002202 
016276 
002204 


002174 
100000 


005 766 
002012 


003106 
002200 


000002 
016456 


003106 
177777 


116 


- MISCELLANEOUS SECTIONS MACRO M1115 


003170 
000001 


003104 


045 


06-FEB -84 18:04 


J/ 


SEQ 067 


MOV CRO)+,R1 sGET VECTOR ADDRESS. 

;MOV (RO) ,R2 ;GET INTERRUPT PRIORITY 

;MOV R2,IPRT sSET INTERRUPT PRIORITY. 

MOV R1,IVEC ;SET INTERRUPT VECTOR POINTER... 
MOV @INTR,CR1)> s...-VECTOR... 

MOV IPRI,CR1)> .-AND PRIORITY. 

TST QvP 31ST PASS ?? 

BEG S$ ;NO, SKIP THE PASS 1 STUFF. 


. 
31ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
; THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


oan rt. 
BIS oot Haag ERTABL(R1) ;SAY DEVICE RUNNING 
CLR Ex ;CLEAR ERROR EXTENSION FLAG. 
CMP tOUNtT. #1 ;ARE WE TESTING MULTIPLE UNITS? 
BLOS 10$ ;BR IF NO. 
RFLAGS RO :YES -- GET OPERATOR FLAGS. 
TRAP CSRFLA 
BIT PNT ,RO ;SHOULD WE PRINT UNIT @? 
BEQ 10% ;BR IF NOT 
PRINTF @PUNIT,UNITN ;PRINT THE “UNIT F 
MOV @2, -CSP) 
MOV ~RO 
TRAP CSPNTF 
ADD 06, SP 
10$: 
CLR Vv | 
MOV CSRADOR ,R1 ;ADDRESS OF FIRST REGISTER 
MOV R1,R2 ;START OF REGISTERS 
ADD @TSSR ,R2 ;ADDRESS OF TSSR REGISTER 
JSR PC, XNXM “Seaget' BOTH CONTROLLER REGISTERS... 
BCC 2s .AND BR IF ALL OK, 
MOV R1,NODEV SFLAG DEVICE AS haa EXISTENT 
- MOV @-!,OUFLG ;DROP THIS UNIT 
H 
;sFINALLY, SET CPU PRIORITY AND WE'RE DONE. 
; 
5$: SETPRI @PRIOO sENABLE INTERRUPTS, 
MOV @PRIOC ,RO 
TRAP CS$SPRI 
ENDINIT 
L10050: 
TRAP CSINIT 
PUNIT: /ONENBAcescee TESTING UNIT S6028A sooeoe’ 


-ASCIZ 
-EVEN 


TSv4 
ADD 


194 


- MISCELL ANE 
AND DROP UNITS SEC: 


104452 


0127357 


100000 
040000 


022500 
000002 


000006 


116 


177777 


140000 
000240 


022604 
000002 


000006 


MACRO M1113 06-FEB-84 18:04 


003170 
003170 


045 


003104 


003170 
000240 


1$: 


“ae 
Op: 
oe 


. SBTTL 


-ASCIZ /sNSA 


-EVEN 


E 
L10031: 


3°? 


: 


TRAP 


KK / 


SEQ 086 


ADD AND DROP UNITS SECTIONS 


-UNIT SECTION CONTAINS THE CODING ‘HAT CAUSES A DEVICE 
ADDED TO THE TEST LIST FOR THE FIRST TIME, 
RE-ITNSERIED IF 


IT HAD BEEN PREVIOUSLY DROPPED. 


— 

1 

#100000 ,ERTABL(R1) 
940000 ,ERTABL(R1 ) 


GET UNIT TO BE ADDED (RO) 
MAKE IT A WORD INDEX 

SET iME “ACTIVE” BIT 
CLEAR THE “DROPPED” BIT 


L10031-2-. 
UNIT s08A ADDED/ 


3; UNUSED. 
Csayu 


THE DROP-UNII SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE 


SUPVSR DOES THE “DROPPING”. 
“DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” 
COMMAND, OTHERWISE REMAIN INACTIVE. 
WILL PRINT AL! 
WHICH ARE STILL. ACTIVE. 
UPON ENTRY, 


TEST LIST. 


THIS IS JUST TO TELL THE MAN. 

OR “ADD” 

COMMAND 
THOSE 


THE “DISPLAY” 
DROPPED UNITS. AND THE P-TABLES OF 


PFO CONTAINS THE UNIT TO BE DROPPED. 
BGNOVU 
MOV @-1,O0UFLG 
MOV RO,R1 
ASL R1 
BIS #140000 ,ERTABL(R1 ) ; SAY DROPPED 
240,240,240 gs 222222222 
PRINTF #@1$,R0 
MOV 01%, -(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6, SP 
EXIT DU 
-WORD J$JMP 
-WORD 110052-2-. 


ABD AND DROP UNITS: SECTIONS 


022714 


045 


104453 


013705 
012705 
004737 
103420 


012727 


104461 


116 


002116 
177772 
177756 


017262 


L/ 


MACRO M1113 O06-FEB-84 18:04 


045 


L$: 


L10032: 


SEQ 0869 


-ASCIZ /SNSA UNIT SDSA DROPPED 


-EVEN 
ENODDU 


TRAP 


Cs0u 


;ee 
; AUTO-DROP CODE SECTION. 


LSAUTO:: 


108: 


L10053: 


BGNAUTO 


ENDAUTO 
TRAP 


CSRADOR ,RS 
0360. R53 
PC ,WALTF 
20$ 

250. 
@250.,(PC)+ 


LSOLY,(PC)-> 
¢) 


Os 
PC ,CKDROP 


CSAUTO 


sPOINT TO DEVICE REGISTER 


sENOUGH TIME FOR 2400’ 
;WAIT FOR SSR TO SET 

;LEAVE WHEN SSR IS SET 
;WAIT FOR .25 SECONDS 


;BUMP COUNTER DOWN 
sKEEP GOING 
;TRY AND DROP UNIT 


UNUSED. 


REEL TO REWIND 


= 


“UP RND REPORT CODING SECTION 


022716 
022716 
022716 
022722 
022726 


022730 
022736 
022742 
022742 
022742 
022742 


022744 


013705 
005737 
100405 


012765 
004737 


104412 


012746 
012746 


010346 
012746 


023206 


040000 
170000 


023243 
000003 


000010 
160000 


023313 


M/ 


M1115 06-FEB-84 16:04 


SEQ 090 


.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


;ee 

; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 

; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 


BGNCL 
LSCLEAN: : 
MOV 
TST 
BMI 
MOV 
JSR 
1%: 
2s: ENDCLN 
L10034 
Te ap 


@0, TSSRCRS) 
PC ,WALTF 


CsCLEAN 


;POINT TO DEVICE REGISTER 
her 4p * FLAG IS SET ON. 
.AND GROSS CONTROLLER FAULT. 
..O0N'T TRY TO XCT CLEANUP CODE. 


;D0 SOFT INIT 


see 
; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


LSRPT:: 


1$: 


2s: 


BGNRPT 
—s 


@DEVSUM 
@DEVSUM, - 
(SP) 


as 
oBIT14,Re2 
2s 


ODEVNER, -(SP) 


GET START OF ERROR TABLE. 
CLEAR UNIT NUMBER 

GET ERROR TABLE ENTRY € TEST IT. 
ZERO IF UNIT NOT RUN 


WAS UNIT DROPPED? 
BR IF YES 

GET ERROR COUNT FIELD 
PRINT 


WAS UNIT NON-EXISTENT? 
BR IF NO 


Sv4 - UP BRD Repoet Cop te eecTrion RO M1115 06-FEB-84 18:04 


LEAN -UP 


258 


012746 
010600 


160001 


3$: 


4$: 


MOV 
MO 


N/ 


G2, -(SP) 
CSPNTS 


@DEVORO. RS, »R2 


(SP )+,R2 
; UNUSED. 


CSRPT 











/#A UNIT SD38A INE, 
/#A UNIT #SD38A DROPPED, 
/#A UNIT #SD30A DROPPED, 
/@A UNIT #SD38A DROPPED, 


SE@ 091 


; WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 


/@NSADEVICE STATUS aa :N/ 


ERRORS = sDsN/ 
NON-EXISTENT REGISTERSN/ 
NOT READY AT STARTUPSN/ 
ERRORS = sDSN/ 


b8 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1115 06-FEB-84 16:04 SEQ 092 
CLEAN-UP AND REPORT CODING SECTIONS 


1 
: -TITLE TEST 1 - HAROWARE TEST 1-8 TESTS 
1 


10 
11 023526 BGNMOD TSV78 
- 023526 TSV7B:: 


TEST 1 


- HARDWARE 
TEST i: 


TEST 


WRITE TAPE MARK RETRY 


012757 


000000 
013727 
000000 


eee,i? 002172 


002116 
177772 
177756 
026500 
002214 


002210 


026500 


»SBTTL 


1-8 TEST MACRO M1115 O06-FEB-84 18:04 


TEST 


C8 


SEQ 095 


1: WRITE TAPE MARK RETRY 


Q 
sTHIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 


sREVERSE, ERASE, WRITE TAPE MARK). 


SUBTESTS ARE AS FOLLOWS: 


3 
;THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 


T29L00P : 


7 


@EPRT1,EPRTSW sPRIMARY ERROR MESSACE 
@TST29I0,RO sASCII MESSAGE TO IDENTIFY TEST 
PC, TSTSETUP 300 INITIAL TEST SETUP 

oS ,LOOPCNT sPERFORM S ITERATIONS 

T29CNT sCLEAR TAPE RECORD COUNTER 


a 

sTEST 1, SUBTEST 1 
3 

;VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE 


;TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE 


Ti:: 


sNON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


108: 


g>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
Ti.ds 


TRAP 
PC, T29REST ;SET COMMAND PACKET 
PC, T29RT2) :;SET UP OTHER COMMAND PACKET 
PC, T29RTS ;SET UP OTHER COMMAND PACKET 
#10000. , T290L Y ;SET UP DELAY ROUTINE 
PC .SOF INIT 300 INITIALIZE ON CONTROLLER 
20% ;8R IF INIT WAS OK 
250 ;DELAY ABOUT .25 SECONDS 
MOV 
. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 
T2901 Y ;BUMP DELAY ROUTINE DOWN 
10$% ;8R, IF MORE DELAY TIME LEFT 
FATFLG sERROR COUNT 
R sCONTENTS OF TSSR REGISTER 


RO,R1 
ERRNO, SF TERR, SF IMSG 


sFATAL ERROR TSSR WAS NOT OK 
TRAP 


. WORD 
. WORD 


CsBSUB8 


@250.(PC)>+ 
 paatinteltecal 
-6( PC) 

a 

-22(PC) 

. -20 


CSEROF 
101 
SF TERR 


feet 'y; 


D8 
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023662 
023664 


023672 
023676 
023702 
023704 
023710 


024074 


012114 
013737 


012114 


104406 
016501 
010102 
042702 


002174 026340 208: 


026320 
010742 


002214 


000100 


003116 
141011 
026440 
000000 


016550 


026442 
026440 


258: 


308: 


40%: 


UNITN, T290SW 
Hb hen ae »R4 


RO, 
ERRNO ,WRTMSG, SF IMSG 


TSSRCRS),R1 
2 
ERRNO, T290FL ,EXPREC 


PC ,CKDROP 

PC ,REWIND 
TSSRCRS),R1 

@SSR ,R2 

50% 

RO,R4 

FATFLG 

ERRNO, T29RWN,PKTSSR 


gy ty *6,R1 


FATFLG 
ERRNO, T29B0T ,EXPREC 


FREE , TO9RB 
#141011, T29PK5 
OT2IPKS ,R4 
R4,TSOBCRS) 

PC ,WAITF 


SEQ 094 


sSET UP UNIT NUMBER 


SF IMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 


s ISSUE WRITE CHARACTERISTICS 

;6R, IF COMMAND ISSUED OK 
sERROR COUNT 

;SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC 4» 


C SERHRD 
. WORD 102 
. WORD WRTMSG 
WORD SF IMSG 
sLO0P IF SELECTED 
TRAP CSCLPl1 
;GET THE TSSR 
;SET UP EXPECTED 
;OFF LINE SHOULD NOT BE SET 
;THEY SHOULD BE EQUAL 
;BR, IF OFL IS NOT SET 
sORIVE IS OFF LINE 
TRAP CSERDF 
. WORD 103 
. WORD T290FL 
-WORD EXPREC 
;TRY AND DROP DRIVE 
+ TAPE REWIND COMMAND 
;GET TSSR 
;SET UP EXPECTED TSSR 
;8R, IF NO PROBLEM 
; PACKET way SET UP 
RROR COUNT 
;REWIND bor ACCEPTED 
TRAP CSERHRD 
. WORD 104 
. WORD TOORWN 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPl 
sPICK UP xSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;8R, IF EQUAL (OK) 
;ERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 105 
. WORD T2980T 
. WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLPl 
sADDRESS OF READ BUFFER 
;sWRITE TAPE MARK RETRY,.CVC#1,ACK COMMAND 


;SET UP R4 WITH PACKET ADDRESS 


; ISSUE COMMAND 
sWAIT FOR SSR TO SET 


E8 
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TEST i: WRITE TAPE MARK RET 


024100 
024104 
024110 
024112 
024114 
024120 
024120 
024122 
024124 
024126 
024130 
024150 
024132 
024135 
024140 
024144 
024146 
024150 
024154 
024154 
024156 
024160 
024162 
024164 
024164 
024166 
024170 
024170 
024170 
024172 
024200 
024202 
024206 


024240 


000002 
100206 


002214 


026350 
002000 


002214 


002214 
017262 


032146 
032240 
032302 
016054 


002214 


000017 


MOV TSSRCRS),R1 

MOV @SSR!ISCIBITLIBIT2,Re2 

CMP R1,R2 

BEG 75% 

INC FATFLG 

ERRHRD ERRNO, T2E9WDE ,PKTSSR 
753: CKLOOP 

MOV T29BFR+6,R1 

MOV R1,R2 

BIS 6BIT10,R2 

CMP R1,R2 

BEQ 170$ 

INC FATFLG 

ERRHRD ERRNO, TOONEF ,EXPREC 
1708: 

COM Ra 

BNE 26% 

ENDSUBS 

CMP FATFLG,@15. 

BLO 999% 

JSR PC .CKDROP 
999%: 


3 * 
° 
;TEST 1, SUBTEST 2 


sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


;8R, IF OK 
sERROR COUNT 

sTSSR INCORRECT AFTER READ DATA 
TRAP 
. WORD 
. WORD 
. WORD 

;LO0P IF SELECTED 
TRAP 

;GET xSTO STATUS WORD 

;SET UP EXPECTED 

;SET THE NEF BIT 

sARE THEY EQUAL 

;BR, IF EQUAL (GOOD) 

;ERROR COUNT 

;NEF SHOULD BE SET 
TRAP 
. WORD 
. WORD 
. WORD 


sRESET THE SWITCH 
;BR, IF FIRST TIME THROUGH HERE 


L10037: 
TRAP 
:;IS ERROR COUNT AT 25 


;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


° 

;sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE 
;IS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESULTS IN 
;TAPE STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT 


;SET. 
a 


BGNSUB 

JSR PC, T2YREST 

JSR PC, T29RT2 

JSR PC, T29RTS 

JSR PC SOF INIT 

BCS 20% 

INC FATFLG 

MOV RO,R1 

ERRDF ERRNO,SFIERR,SFIMSG 


CSERHRD 
106 

T29WDE 
PKTSSR 


CSCLPl 


CSERHRD 
107 


T29NEF 
EXPREC 


CsESUB 


g>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
Ti.23 


TRAP 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
300 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 


sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS a 
A 


Cs8SU8 


CSERDF 


F8 
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TEST 1: WRITE TAPE MARK RETRY 

024242 000154 -WORDB 108 
024244 003646 -WORD SFIERR 
024246 012114 -WORD SFIMSG 

Je 024250 015737 002174 026340 20%: MOV UNITN, T290SW sSET UP UNIT NUMBER 

179 024256 012704 026320 MOV @T29PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

180 024262 004737 010742 JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 

181 024266 103407 BCS 25% ;BR, IF COMMAND ISSUED OK 

182 024270 0052357 002214 INC FATFLG sERROR COUNT 

186 024274 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

187 024276 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
024276 104456 TRAP CSERHRD 
024300 000155 -WORD 109 
024302 005052 -WORD WRIMSG 
024304 012114 -WORD SF IMSG 

188 024306 25%: CKLOOP ;LOOP IF SELECTED 
024306 104406 TRAP CsCLPl 

189 024310 004737 011074 263: JSR PC ,REWIND sCALL TAPE REWIND COMMAND 

190 024314 016501 000002 MOV TSSRCRS),R1 sGET TSSR 

191 024320 012702 000200 MOV @SSR Re ;SET UP EXPECTED TSSR 

192 024324 103407 BCS 30$ ;BR, IF NO PROBLEM 

193 024326 010004 MOV RO,R4 sPACKET nERROR SET UP 

194 0243350 005237 002214 INC FATFLG RROR COUNT 

198 024334 ERRHRD ERRNO, T29RWN,PKTSSR sREWINO NOT ACCEPTED 
024334 104456 AP CSERHRD 
0243536 000156 WORD 110 
024340 030305 WORD T29RWN 
024342 012126 WORD PKTSSR 

199 024344 30$: CKLOCIP ;LOOP IF SELECTED 
024344 104406 TRAP CsCLP1 

200 024346 013701 0263550 ‘10V T29BFRe6,R1 sPICK UP XSTO 

201 024352 010102 MOV R1,Re2 ;SET UP EXPECTED 

202 024354 052702 000002 BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 

203 024360 020102 CMP R1,Re2 ;D0ES EXP = REC'D 

204 024362 001406 BEQ 40% ;BR, IF EQUAL (OK) 

205 024364 005237 002214 INC FATFLG ;ERROR COUNT 

209 024370 ERRHRD ERRNO, TO9BOT,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
024370 104456 TRAP CSERHRD 
024372 000157 -WORD 111 
0243574 027776 -WORD T2980T 
024376 015554 .WORD EXPREC 

210 024400 012737 000001 026442 40%: MOV #1, T29RB ;sNUMBER OF RECORDS TO SPACE OVER 

211 024406 012737 000400 026446 MOV 0256. ,T29SZ ;SET UP RECORD SIZE 

212 024414 012737 140005 026440 MOV #140005 , T29PKS sWRITE FORWAROD.CVC=1,ACK COMMAND 

2135 024422 012704 026440 MOV @T29PK3,R4 ;SET UP R4&4 WITH PACKET ADDRESS 

214 024426 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

215 024432 004737 016350 JSR PC ,WAITF sWAIT FOR SSR TO SET 

216 024436 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

217 024442 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 

218 024446 020102 CMP R1,R2 ;ARE THEY EQUAL 

219 024450 001420 BEQ 75% ;BR, IF OK 

220 024452 013703 026350 MOV T29BFR+6,R5 ;PICK UP XTSO 

221 024456 032703 000004 BIT 04,R3 3IS UNIT WRITE -LOCKED? 

222 024462 001405 BEQ 41% ;NO,PROCEED WITH NORMAL ERROR 

223 024464 ERROF ERRNO, T29WLK,SFIMSG ;TAPE IS WRITE LOCKED 
024464 104455 TRAP CSEROF 


024466 000157 . WORD 111 


G8 
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224 


225 
229 


230 
231 


024470 
024472 


024666 
024672 
024674 
024676 
024702 
024702 
024704 
024706 
024710 


027644 
012114 


012737 


002214 


000001 
140410 


003116 
141011 
026440 
000000 
016530 
000002 
100204 


002214 


026556 
000001 


002214 


026442 
026440 


026442 
026440 


41%: 


758: 


1758: 


1808: 


DOCLN 


INC 
ERRHRD 


FATFLG 
ERRNO, T29WRT ,PKTSSR 


#1, T29RB 
#140410, T29PKS 


@T29PKS ,.R4 
R4, TSOBCRS) 
PC ,WAILTF 
TSSRCRS),R1 
@S 2 


G 
ERRNO, T29WDE ,PKTSSR 


FREE , T29RB 
#141011, =—_— 


). 
esSh!SC!81T2,R2 


180% 
FATFLG 
ERRNO, T29WDE , PK TSSP 


LG 
ERRNO, T29RIB,EXPREC 


SEQ 097 
. WORD T29WLK 
-WORD SFIMSG 

;DROP IT 
TRAP CSOCLN 

;ERROR COUNT 
sTSSR INCORRECT AFTER wy DATA 
CSERHRD 

 YUORD 112 
“WORD T29WRT 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


sNUMBER OF RECORDS TO SPACE OVER 
;SET UP COMMAND IN APCKET 


;SET UP R4 WITH PACKET ADORESS 
; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 


;BR, IF OK 
;ERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 113 
. WORD T29WDE 
.WORD PKTSSR 
;LOO0P IF SELECTED 
TRAP CSCLPi 
;ADDRESS OF — 
‘WRITE TAPE MARK RETRY ,ACK, — 1 COMO. 


;SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 


;ERROR COUNT 
;TSSR INCORRECT AFTER =< DATA 


RAP CSERHRD 
. WORD 114 
. WORD T29WDE 
. WORD PKTSSR 
;LO0OP IF SELECTED 
TRAP CSCLP1 
;GET xXST3 STATUS WORD 
;SET UP EXPECTED 
;SET THE RIB BIT 
;ARE THEY EQUAL 
;BR, IF EQUAL (GOOD) 
;ERROR COUNT 
;NEF SHOULD BE SET 
TRAP CSERHRD 
. WORD 115 
. WORD TOORIB 
. WORD EXPREC 


3SET 


rE 


T 
31 


H8 
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271 
272 


312 


024712 
024712 
024712 
024712 
024714 
024722 
024724 
024730 


012114 
104406 


002214 
017262 


032146 
032240 
032302 
023420 
016054 
000250 
002116 
177772 
177756 
026500 


002214 


002174 
026320 
010742 


002214 


190$: 


000017 


9995: 


3° 


ENOSUB 

CMP FATFLG,@15. 
BLO 999% 

JSR PC ,CKDROP 


é 
;TEST 1, SUBTEST 3 


8 

;VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINATES 

;sPROPERLY AND WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE 
;COMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK-1). 


026500 
10%: 


026340 20%: 


23%: 


BGNSUB 
JSR PC, T29REST 
JSR PC, T29RT2 
JSR PC, T29RTS 
MOV #10000. , T290LY 
JSR PC, SOF INIT 
BCS 20% 
DELAY 250 
DEC T290L Y 
BNE 10$ 
INC FATFLG 
MOV RO,R1 
ERRDOF ERRNO,SFIERR,SFIMSG 
MOV UNITN, T290SW 
MOV OTOSPACKET ,R4 
JSR PC ,WRICHR 
BCS 23% 
INC FATFLG 
v R 


MO RO,R1 
ERRHRD ERRNO,WRIMSG, SF IMSG 


CkL_OOP 


SEQ 096 


3 >>>>>>>>>>>> END SUBTEST »>>>>>>>>>> >> 


L10040: 
TRAP CsESUB 
;IS ERROR COUNT AT 25 
;8R, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


3 >>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
T1.3: 


TRAP Cs6SUB 
;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP DELAY ROUTINE 
;00 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
;DELAY ABOUT .25 SECONDS 
WORD O 


-WORD O 
DEC -6( PC) 
BNE .-4 
DEC -22¢0PC ) 
BNE . -20 

;BUMP DELAY ROUTINE DOWN 

;BR, IF MORE DELAY TIME LEFT 

;ERROR COUNT 

CONTENTS OF TSSR REGISTER 

;FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. WORD 116 
-WORD SFIERR 

SF IMSG 


;SET UP DRIVE NUMBER 
; SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sERROR COUNT 
;SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 

. WORD 117 

.WORD WRIMSG 

.WORD SF IMSG 
;LO0P IF SELECTED 

TRAP CscLiPl 


TEST 
TEST 


562 


18 
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L 
1: WRITE 


011074 
000002 
002214 


026440 


026440 


40$: 


708: 


1508: 


1558: 


165%: 


CK. OOP 


PC ,REWIND 
30% 
a R1 
RO,R 


FATFLG 
ERRNO, T29RWN,PKTSSR 


T29BFR+6,R1 


G 
ERRNO, T2980T ,EXPREC 


#140011, T29PKS 


ERRNO , T29WOC , PK TSSR 


#1.,R5 

e141011, T29PK 5 
OT29PKS ,R4 

R4, TSDB(RS ) 


PC ,WAITF 
TSSR(RS),R1 


ERRNO, T29WDC , PK TSSR 


SEQ 099 


;CALL TAPE REWIND COMMAND 
;GET TSSR 
sSAVE PACKET ADDRESS 


;ERROR COUNT 
sREWIND NOT ACCEPTED 


TRAP C SERHRD 
. WORD 118 
. WORD TeIR GN 
.WORD PKTSSR 
;LO00P IF SELECTED 
TRAP CSCLPl 
;PICK UP xSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP «= REC'D 
;B8R, IF EQUAL (0K) 
;ERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP C SERHRD 
. WORD 119 
. WORD T2980T 
.WwORD EXPREC 


;LOOP IF SELECTED 
TRAP CSCLPi 


;sWRITE TAPE MARK ,ACK,CVC=1 COMMAND 
;SET fo WITH PACKET ADDRESS 


;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 


;6R, IF _ 
ERROR COUNT 
;7SSA INCORRECT AFTER ag * TAPE MARK 
C SERMRCO 
120 
T29wOC 
PKTSSR 





;LOOP IF SELECTED 
TRAP CscLPl 


;NUMBER OF RECORDS TO WRITE IM 
;WRITE TAPE MARK RETRY ,.ACK,.CvC=1 COMMAND 
;SET UP R4 WITH PACKET ADORESS 

; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;PICK UP TSSR 

;SET UP EXPECTED (SSR ONLY) 

s#AS STATUS GOOD 

;BR, IF TERMINATION WAS GOOD 


s;ERROR COUNT 
:;TSSR NOT CORRECT AFTER WRT TAPE M. 
TRAP C SERHRD 
. WORD 121 
. WORD TO9wOC 
. WORD Px TSSR 


3LOOP IF SELECTED 


TES! i 


TE 


104402 
004737 
004737 
004737 
012737 
004737 


140401 
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026440 


003116 026442 


026440 
000000 
016350 
000002 
100204 


002214 


026350 
100000 


002214 


002214 
017262 


032146 
032240 


000017 


J& 
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MOV #140401, T29PK5 

MOV FREE, T29RB 

MOV @T29PK3,R4 

MOV R4, TSDBCRS) 

JSR PC ,WAITF 

MOV TSSR(RS), Ri 

MOV eSSR!SC!BIT2,R2 

CMP R1.R2 

BEG 222% 

INC FATFLG 

ERRHRD ERRNO, T29RDG,PKTSSR 
222s: CKLOOP 

MOV T29BFR+6,R1 

MOV R1,R2 

BIS 6BIT15,R2 

CMP R1,R2 

BEG 2263 

INC FATFLG 

ERRHRD ERRNO, T29RRN,EXPREC 
2263: CKLOOP 

ENDSUB 

CMP FATFLG,@15. 

BLO 999% 

JSR PC ,.CKDROP 
999%: 


3° 
5 
;TEST 1, SUBTEST 4 


SEQ@ 100 


TRAP CSCLPi 
sREAD REVERSE ,ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 
;SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 
;sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 





;6R, IF _ 
ERROR COUN 
;TSSR INCORRECT > TER a - 5 CMD. 
CSERHRD 

ORD 122 
- WORD T29ROG 
WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLPl 

;sPICK UP xSTO 

;SET UP EXPECTED 

; TMK SHOULD BE SET 

;IS TMK SET 

;BR, IF TMK WAS SET (GOOD) 

sERROR COUNT 

; TMK NOT SET AFTER READ REV 
TRAP C SERHRD 
. WORD 123 
. WORD T29RRN 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLP1 
s<cceceececee END SUBTEST >>>>>>>>>>> 
L10041: 


TRAP CSESUB 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


3 

; VERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK 
;RETRY OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING SEVERAL 
;sWRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE 


sRECORDS REVERSE COMMANDS IN SUCCESSION. 


THE SECOND SPACE RECORDS REVERSE 


;COMMAND SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET. 


BGNSUB 

JSR PC, T29REST 

JSR PC, T29RT2 

JSR PC, T29RTS 

MOV #10000. , T290L¥ 
10$; JSR PC,SOF INIT 


¢>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>>> 
™1.4: 


TRAP Cs8SUB 
;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP DELAY ROUTINE 
:00 INITIALIZE ON CONTROLLER 


TES! 
TEST 


1 


411 
412 


452 


a HARDWARE 


WRITE 


TEST 


103426 
012727 
000000 
0135727 
000000 


RETRY 


000250 
002116 
177772 
177756 
026500 
002214 


002174 
026520 
010742 


002214 


011074 
000002 
002214 


026340 20%: 


23%: 


30$: 


40$: 


BCS 
DELAY 


CKLOOP 


Ks 


1-8 TEST MACRO M1115 O06-FEB-84 18:04 
TAPE MARK 


20$ 
250 


RO,R1 
ERRNO , SFIERR, SF IMSG 


UNITN, T290SW 
@T29PACKET ,R4 
CHR 


RO,R1 
ERRNO ,WRTMSG, SF IMSG 


PC ,REWIND 
30 


5 
TSSRCRS),R1 
RO,R4 

FATFLG 

ERRNO, T29RWN,PKTSSR 


FATFLG 
ERRNO, T29B80T ,EXPREC 


SE@ 101 

;8R IF INIT WAS OK 

;DELAY ABOUT .25 SECONDS 
MOV 
. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 


;BUMP DELAY ROUTINE DOWN 
;BR, IF MORE oy a LEFT 


sERROR C 

;CONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
. WORD 

;SET UP DRIVE NUMBE 


 oreanmens 
—— 
-6(PC) 

4 


"22(PC) 
--20 


R 
; SUBROUTINE NEEDS PACKET ADDRESS 


; ISSUE WRITE CHARACTERISTICS 

;B8R, IF COMMAND ISSUED OK 
;ERROR COUNT 

;SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC by 


. WORD 

. WORD 
;LOOP IF SELECTED 

TRAP 


;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM . 


sGET TSSR 
;SAVE PACKET ADDRESS 
;ERROR COUNT 

;REWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


;sPICK UP xSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

;B8R, IF EQUAL (OK) 


;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
- WORD 
;LOOP IF SELECTED 
TRAP 


CsCLPl 


CSERHRD 
127 
T29B0T 
EXPREC 


CSCLP1L 


TEST 
TEST 


026160 


L_- HAROWARE TEST 1 


012737 
012704 


027562 
012126 


104406 
012737 
012737 
012704 
010465 


L8 
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140410 


026440 


026442 
026440 


026440 
026442 


026440 
026442 


70$: 


150$: 


155$: 


165$: 


222s: 


#140011, T29PKS 
29PKS,R4 


@SSR,R2 


ERRNO, T29WDC ,PKTSSR 


#10. ,R3 
#1, T29RB 
#141011, T29PKS 


TSSRCRS), Ri 

@SSR,R 

R1,R2 

165$ 

FATFLG 

ERRNO, T29WDC ,PKTSSR 


R3 

155$ 

#140410, T29PKS 
#1, T29RB 
@T29PKS,R4 

R4, TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 
@SSR!ISC!:BIT2,R2 
R1,Re2 

222 

FATFLG 

ERRNO, T29WDE , PK TSSR 


#100410, T29PKS 
#5, T29RB 
@T29PK3,R4 

R4, TSOBCRS) 


SEQ 102 


sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADORES S 

; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 


3; ARE Y 
;BR, IF OK 
;ERROR COUNT 

;TSSR INCORRECT AFTER ay to TAPE MARK 
TRAP CSERHRD 
. WORD 128 
. WORD T29WDC 
. WORD PKTSSR 

;LO0OP IF SELECTED 

CSCLP1 


TRAP 
sNUMBER OF RECORDS TO WRITE TM 
;SET UP PACKET 


sWRITE TAPE MARK RETRY,ACK,.CVC=1 COMMAND 

eo UP R4 WITH PACKET ADDRESS 

; 

;WAIT FOR SSR TO SET 

;PICK UP TSSR 

;SET UP EXPECTED (SSR ONLY) 

;WAS STATUS GOOD 

;B8R, IF TERMINATION WAS GOOD 

;ERROR COUNT 

;TSSR NOT CORRECT AFTER WRT TAPE M. 
TRAP CSERHRD 
. WORD 129 
. WORD T29WDC 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

;BUMP COUNTER DOWN 

;BR,. IF LESS THAN 10 TAPE MARKS 

;SPACE REVERSE ,ACK,.CvC=1, COMMAND 


;NUMBER OF RECORDS TO SPACE BACK 
;SET UP R4 WITH PACKET ADDRESS 

; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 


;BR, IF _ 
ERROR COUNT 
;TSSR INCORRECT AFTER “™ CMD. 
CSERHRD 

TMORD 130 
. WORD T29WDE 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP CSCLPl 


;SPACE REVERSE ,ACK, COMMAND 
;NUMBER OF RECORDS TO SPACE BACK 
;SET UP R&4 WITH PACKET ADDRESS 

; ISSVE COMMAND 


TEST "a; GARETT Aled Reet mee mms: o-Fe- 00 


026312 


026320 


346 0263520 


026322 
026324 
026326 
026330 
026330 
026332 
026334 


016330 
000002 
100204 


002214 


002214 
017262 


0165356 
023556 


000017 


2608: 


2703: 
330$: 


999%: 


JSR 
BCC 


JMP 
163$: EXIT 


M8 


18:04 


PC ,WAITF 
TSSRCRS),R1 
@SSR!SC!BIT2,R2] 
R1,R2 

260% 

FATFLG 

ERRNO, T29RDG ,PKTSSR 


T29BFR+14,R1 
R1,R2 
7 ae 


FATFLG 
ERRNO, T29RIB ,EXPREC 


FATFLG,@15. 
999% 
PC ,CKOROP 


PC, TSTLOOP 
163$ 


T29L00P 
TST 


3° 
;LOCAL STORAGE FOR THIS TEST 


ie 
T29PACKET: 


T29DATA: 


#<,+10>€177770 


14004 
T29DATA 
0 

10. 
T29BFR 
0 

20. 


SEQ 105 


sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 


;8R, IF OK 
;ERROR COUNT 

:;TSSR INCORRECT AFTER SPACE REV CMD. 
TRAP CSERHRD 
. WORD 131 
. WORD T29RDG 
. WORD PKTSSR 

;LO0O0P IF SELECTED - 
TRAP CSCLP1 

;PICK UP xXST3 

;SET UP EXPECTED 

;RIB SHOULD BE SET 

;IS RIB SET 

;BR, IF RIB WAS SET (GOOD) 

;ERROR COUNT 

;TMK NOT SET AFTER READ REV 
TRAP CSERHRD 
. WORD 132 
.WORD T29RIB 
-WORD EXPREC 

sLOOP IF SELECTED 
TRAP CSCLP1 


;LOOP IF SELECTED 
TRAP CSCLPi 
3<<<eeee<e<<ee END SUBTEST >>>>>>>>>>> 
L10042: 


TRAP CsESUB 
;IS ERROR COUNT AT 25 
;BR, IF LESS TH*: 25 
;TRY TO OROP TH VJNIT 


;00 WE NEED TO ITERATE TEST 
;BR. IF NO LOOP REQUIRED 
;EXECUTE AGAIN 
;ALL DONE THIS TEST 
TRAP 
. WORD 


CsExIT 
L10036-. 


sCOMMAND PACKET FOR TEST 
;sWRITE CHARACTERISTICS COMMAND, WITH CvC-1, ACK 
;sADDRESS OF CHARACTERISTICS BLOCK 


;STARTING VALUE OF BLOCK SIZE 
;CHARACTERISTICS DATA BLOCK 
;ADDRESS OF MESSAGE BUFFER 


;LENGTH OF MESSAGE BUFFER 


TEST 1 


TEST 


1: 


: rie Te TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 
TAPE MARK RETRY 


WRITE 
026336 


026340 
026342 


027103 
027217 


140001 
140401 
141001 
161001 
141401 
161401 
177777 


000000 
000000 


N8& 


SEQ 104 


;SELECT DRIVE O 
sMESSAGE BUFFER 


: 
;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.*¢<,+10>E€177770 


T29PKe: 


100006 
T29BF 2 


;WRITE SUB SYS MEM COMMAND, AND ACK 
sADORESS OF SELECT BLOCK DATA 


;SIZE OF DATA PACKET 


;sWRITE TAPE MARK RETRY COMMAND, CvC=1 AND ACK 
;ADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER CEXTENT) 


;BSELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 
;DATA AREA 


. EVEN 
;TAPE MOTION PACKET COMMAND VALUES 


T29RN: 


T29WDR: 
T29CON: 


;READ DATA 
;sREAD DATA REVERSE 


;WRITE TAPE MARK RETRY NEXT OPP=0 
;sWRITE TAPE MARK RETRY NEXT OPP=1 
;END OF DATA 


; TAPE RECORD COUNTER STORAGE AREA 


sRECORD STORAGE SIZE ‘REA 
;DELAY COUNTER STORAGE AREA 


TEXT MESSAGES FOR TEST 


.ASCIZ 
-ASCIZ 
-ASCIZ 
.ASCIZ 
-ASCIZ 


.ASCIZ 
~ASCIZ 


‘Drive 
‘Tape 
‘WRITE 
oi. 2 
‘WRITE 


‘WRITE 
‘POSIT 


is OFFLINE’ 
Position Incorrect After WRITE TAPE MARK RETRY Previous (O0PP=-1) 
TAPE MARK RETRY, At BOT. Fae'led To Set NEF (XSTO)’ 
Incorrect After READ DATA Command’ 
TAPE MARK RETRY Previous (Space Reverse, Read Forward) Command fs led 


TAPE MARK RETRY Previous (Read Forwarad, 
ION (Space Command) Fai led, 


Space Reverse) Command Failed 
TSSR Not Correct’ 


bY 





TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113 O06-FEB-84 16:04 SEQ 105 
TEST 1: WRITE TAPE MARK RETRY 

616 027301 122 111 102 T29L0R: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
617 027351 tea i123 123 T29WOF: .ASCIZ ‘TSSR Not Correct After Illegel Mode Bits Set’ 
618 027426 111 154 154 T29.00: scIz ‘Ill l Mode Bite, Failed To Set ILC a; t In xSTO’ 
619 027507 127 122 Lili ‘WRITE TAPE MARK RETRY COMMAND Not Accepted’ 
620 027562 124 123 125 ‘TSSR Not Correct After SPACE REVERSE DATA Command’ 
621 027644 052 052 052 'eeeeeTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORSeeece’ 

<2 027731 124 123 123 ‘TSSR Not Correct After WRITE Command’ 
623 027776 124 141 160 ‘Tape Not At BOT After REWIND Commend’ 
624 030043 104 141 164 ‘Dete Written To T Not Equel To Dete Read From Tape’ 
625 030131 127 122 Lil ‘WRITE TAPE MARK RETRY DATA “OVER EOT GAVE NO TAPE STAT TUS ALERT’ 
626 030227 124 123 123 T29TM: . IZ ‘TSSR Not Correct After SPACE REVERSE Into BOT’ 
627 030305 122 145 167 ‘Rewind (POSITION) Command Not Accepted’ 
628 030354 122 101 115 ‘RAM Error, Correct Dete Pettern Not In R 
629 030427 124 123 123 ‘TSSR Init. Feiled After WRITE TAPE MARK RETRY COMMAND ‘ 
630 030515 104 162 151 ‘Orive 7 Select Feiled To Set “OFL” In TSSR’ 
631 030570 124 1235 123 ‘TSSR Not Correct After WRITE TAPE MARK RETRY DATA Command, SWB Bit Set’ 
632 030677 124 125 i123 ‘TSSR Not Correct After WRITE TAPE MARK RETRY DATA Command’ 
633 030771 103 126 103 ‘CvC Set, Didn''t Reset VCK In Mess Buffer’ 
634 031044 124 123 102 ‘TSBA Not Correct After WRITE TAPE RETRY DATA Command’ 
635 031135 127 122 111 ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
636 031225 122 i45 141 ‘Reading ane Record Feiled To Set RiLL Bit In XSTO’ 
637 031307 122 145 141 ‘Reading Lane Record Feiled To Set RLS Bit In XSTO' 
638 031371 122 145 163 ‘Resi duel 4. e Count Incorrect After Short Record Read’ 
639 031457 122 145 141 tee eggs A Record Feiled To Give Tape Stetus Alert’ 
640 031545 104 141 164 ‘Dete ITE TAPE MARK RETRY From Tape Not Correct, After SwWB=-1' 
641 031643 ic4 123 123 ‘TSSR Incorrect After READ REVERSE Into Tape Mark’ 
642 031724 127 122 111 ‘WRITE TAPE MARK RETRY At Firet Record, Failed To Set RIB (xST3)’ 
643 032024 124 115 1135 ‘TMK (XSTO) Failed To Set After READ REVERSE Into Tape Mark ' 
a4 032117 127 162 151 -ASCIZ ‘Write Tepe Mark Retry’ 
ss ; 

: 
648 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
ion sWRITE SUBSYSTEM MEMORY COMMAND 
; 
651 3- 
652 
653 032146 TESREST: 
654 032146 SAVREG sSAVE THE REGISTERS 
655 032152 012701 026320 MOV @T2ZSPACKET,R1 sSTART OF THE PACKET 
656 032156 012721 140004 HOV #140004 ,(R1)> sWRITE SUBSYSTEM MEM. WITH ACK, CvC-l 
657 032162 012721 026330 MOV @TOSDATA,(R1)> sADORESS OF CHARAISTICS DATA BLOCK 
658 032166 CLR (R1)-« SEXTENDED ADORESS 
659 032170 012721 000012 MOV #10. ,(R1)> sSIZE OF DATA BLOCK IN BYTES 
660 032174 012721 026342 MOV @TOSBFR, CRI)» sADORESS OF MESSAGE BUFFER 
661 032200 21 CLR (R1 de 
032202 012721 000024 MOV @20.,(R1L)> sLENGTH OF MESSAGE BUFFER 

663 032206 CLR CR 1): 
664 032210 012711 MOV #0 ,<R1) sSELECT ORIVE ZERO (0) 
665 032214 012702 000030 MOV 024, ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
666 032220 012762 177777 026342 64%: MOV 0177777, T29BFR(R2) sALL ONES TO MESSAGE BUFFER 
667 032226 005742 TST -(R2) sNEXT LOCATION 
668 032230 020227 000000 CMP R2,00 s;CHECK FOR END OF LOOP 
669 932234 001371 BNE 64% sKEEP GOING UNTIL DONE 
ot 032236 000207 RTS PC ;RE TURN 
672 032240 T2ORT2: 











032332 
0323532 


032352 


012701 


012721 


0127357 


012737 


006554 
041251 
016570 
000005 002210 


002172 


T2EORTS: 


. SBTTL 
% 


; THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE 
AND SKIP T 


3FORWARD 


sUNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP 


C9 


; ORCOP Rh od faded Be fey! MACRO "1115 06-FEB-84 18:04 


@T29PK2 ,R1 
#140006 ,(R1)> 
@T29BF2,(R1)> 


TEST 2: SKIP TAPE MARKS 


SEQ 106 


+ po THE REGISTERS 


sSTART OF 


THE 


PACKET 
sWRITE SUBSYSTEM MEM. WITH ACK,CVvC#1, 


sADDRESS OF DATA BLOCK 


seXTENDED ADDRESS 


sSIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


;RE TURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 


sEXTENDEC ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 
sRE TURN 


L10036: 
TRAP 


MARKS 
APE MARKS REVERSE COMMANDS. PROPER OPERATION 


TAPE MARKS 
sSTOP CESS) AND ENABLE TAPE MARKS STOP OFF BOT CENB) BITS SPECIFIED 


s6Y THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS OF 
sFOLLOWING roatat (FOR EACH SUBTEST, 


;WITH AN 
3AND/OR DOUBL 
5 


THE 


THE 


TAPE IS FIRST WRITTEN 


ATE SERIES OF DATA RECORDS AND/OR TAPE MARKS 
MARKS. 


x 
;THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 


3 * 


®EPRT1,EPRTSW 
@TSTSOID,RO 
PC, TSTSETUP 
oS ,LOOPCNT 


i 
sTEST 2, SUBTEST 1 


3 
sVERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH 


T2:: 


sPRIMARY ERROR MESSAGE 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM S ITERATIONS 


sA TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. 


11S FIRST REWOUND, THEN WRITTEN WITH SEVERAL “FILES”; 


sEACH FILE CONSISTS OF A NUMBER OF DATA RECORDS 


sFOLLOWED BY A TAPE MARK, 


THE FINAL FILE IS 


sTERMINATED Br A DOUBLE TAPE MARK, EACH DATA RECORD 


TAPE 


test *2 


032504 
032510 


. 


012114 


013737 
012704 


004737 
103407 


002116 
177772 
177756 
036656 
002214 


002174 
036500 


010742 


- BOBRWORE, Ths. 2-8 TEST MACRO M1113 06-FEB-84 18:04 


036656 


036520 


D9 


SEQ@ 107 


sCONTAINS A FILE NUMBER AND THE RECORD NUMBER WITHIN 
;THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 
sVERIFIED BY READING THE DATA. THE TAPE IS AGAIN 
sREWOUND AND A SERIES OF SKIP TAPE MARKS F 


sCOMMANOS ARE I 
sTERMINATION, TMK*1 STATUS, TAPE POSITION VIA READ 
COMMAND) IS CHECK TO 


j 

3 COMMAND , 
iSET UP THE ESS AND ENB CON 

;COMBINATIONS OF ESS AND ENB ARE USED (00.01.10, 
111); OPERATION SHOULD BE THE SAME IN EACH CASE FOR 
sTHIS SUBTEST. 












TSOLOOP : 
BGNSUBS 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T2.1: 
TRE Cs6SUB 
JSR PC, TSOREST sSET COMMAND PACKET 
CLR TSOF CN sCLEAR FILE COUNTER 
JSR PC, TSORT2 sSET UP OTHER COMMAND PACKET 
JSR C,TSOR TS ;SET UP OTHER COMMAND PACKET 
MOV #65000. , FSODLY ;SET UP DELAY COUNTER 
108: JSR at , SOF INIT 300 INITIALIZE ON CONTROLLER 
BcS ;8R IF INIT WAS OK 
DELAY $30 sDELAY ROUTINE CALL 
MOV 9250,(PC)-+ 
. WORD 0 
DEC -6(PC) 
BNE a* 
DEC -22(PC) 
BNE --20 
DEC TSODOLY s;BUMP COUNTER 
BNE 108 ;B8R, IF MORE COUNTING TO DO 
INC FATFLG ;ERR OUNT 
MOV RO,R1 CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SF IERR, SF IMSG ‘FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. WORD 201 
. WORD SF IERR 
ans . WORD SF IMSG 
MOV UNITN, T300SW ;SET UP UNIT NUMBER 
MOV @TSOPACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


SPP OSEOEEEEEEEEEEEEEEEEEEESEEESESOEEHESEEEEEEHEESEESEEREOS 
‘ 

s ISSUE WRITE CHARACTERISTICS COMMAND 

® 

PUTT ITI IIIT iri iri iiiiririitiitiiiriiiiiiitiiiii ty 


JSR PC ,WRICHR ; ISSUE WRITE CHARACTERISTICS 
BCS 25% 3BR, IF COMMAND ISSUED OK 


TEST 1 - HARDWARE 


TEST 2: SKIP TAPE MARKS 


777 
781 
782 


032530 
032530 


012114 
104406 


013701 


0137537 
0127537 


002214 


011074 


000002 
002214 


000001 


000001 
003116 036622 
003720 036626 


036654 


EQ 


TEST 1-8 TEST MACRO M1115 O06-FEB-84 18:04 


INC FATFLG 
MOV 
ERRHRD 


23%: CKLOOP 


RO,R1 
ERRNO ,WRTMSG, SF IMSG 


SEQ 1086 


sERROR COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC — 


;LOOP IF SELECTED 


8906066888486 OO4OS 646464 SOE4SEHESEEESEEEESESEHEEEEEEEEEEEEEEES 


é 
s ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


: 
§ 9086466666686 6666606686 6606666666666 66666666466666466668666466666 


JSR PC ,REWINO 
30% 


BCS 

MOV RO,R4 

MOV TSSRCRS),R1 
FATFLG 


INC 
ERRHRD ERRNO, TSORWN,PKTSSR 


308: CKLOOP 


;CALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

;GET PACKET ADORESS 

sGET STATUS REGISTER 
sERROR COUNT 

sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


£926 66066 666666666 666606666666664666666666666666066666064664686 


: 
;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


a 
§ 2080606066066 606646685 66666686666606646666666666606868666664666 


MOV R1,R2 

BIS 6BIT1,R2 

CMP R1,Re2 

BEQ 40% 

INC FATFLG 

ERRHRD ERRNO, TSOBOT,EXPREC 
40$: CKLOOP 

MOV 01.,T30FCN 
64%: MOV 01,R5 
65%: MOV FREE, T50w8 

MOV #2000. ,730SZ 


;sPICK UP xSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;DOES EXP = REC'D 

;BR, IF EQUAL (OK) 


sERROR COUNT 
;TAPE NOT AT BOT AFTER —— 
me 


;LOOP IF SELECTED 
TRAP 


sSET “FILE” COUNTER AT 1 DECIMAL 


;ONE RECORD PER “FILE” 


sSET UP PACKETS'S WRITE BUFFER 
;SET RECORD SIZE AT 2000 BYTES 


§ 990606666666 86666 6680660606468 6466606666666606866866466064606646688664646 


; 
;WRITE DATA,ACK,CVC*=1 COMMAND 
; 


CSERHRD 


CscCLPi 


CSCLP1 


CSERHRD 
204 


TSOBOT 
EXPREC 


CSCLP1 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 
TEST 2: SKIP TAPE MARKS 


SE@ 109 


828 SOPRA HEEAEEEHHEEEEEEASEEEESESESEERESEEEEEEEEEOEREEEEEEEEE 

829 

830 032646 012737 140005 036620 MOV #140005, TSOPKS sWRITE DATA,ACK,CVC*1 COMMAND 

831 032654 012704 036620 MOV OTSOPKS,R4 sSET UP R4 WITH PACKET ADDRESS 

832 032660 013702 036654 MOV TSOFCN,R2 sGET FILE COUNTER 

833 032664 000302 SWAB Re sMOVE TO UPPER BYTE 

834 032666 010301 MOV R3,R1 sGET RECORD COUNTER 

835 032670 1 ADD R2,R1 sFILE COUNTER IN UPPER, RECORD @ LOW 

836 032672 010177 150220 MOV R1,@F REE sMOV TO OUT PUT BUFFER 

837 032676 010465 MOV R4, TSOBCRS) s ISSUE COMMAND 

838 032702 004737 016330 JSR PC ,WALTF ;sWAIT FOR SSR TO SET 

839 032706 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

840 032712 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 

841 032716 020102 CMP R1,R2 sARE THEY EQUAL 

842 032720 001406 BEQ 70$ ;BR, IF OK 

843 032722 005237 002214 INC FATFLG s;ERROR COUNT 

847 032726 ERRHRD ERRNO, TSOWDD,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
032726 104456 TRAP CSERHRD 
032730 000315 -WORD 205 
032732 037170 -WORD T30WDO 
032734 012126 -WORD PKTSSR 

848 032736 708%: CKLOOP ;LOOP IF SELECTED 
032736 104406 TRAP CSCLP1 

849 032740 005205 INC R3 ;COUNT THE RECORD COUNTER DOWN 

850 032742 020327 000021 CMP R3,021 ;AT 20 YET 

ae 032746 001331 BNE 65% ;BR, IF NOT AT 20 RECORDS WRITTEN 

oe PUT IT ITI Tir ititiriririririrtiririritiiiiiiiitiiiiiittttt 

24 ; 
oe ;sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
é 

4H PUY ITITirir iti iriiiiiriiiiitititiiiiiiiiiititi iit TTT iy ty 

859 032750 012737 141011 036620 MOV #141011, TSOPK3 ;sWRITE TAPE MARK,ACK,CVC=1 COMMAND 

860 032756 012704 036620 MOV @TSOPK3S ,.R4 ;SET UP R4 WITH PACKET ADDRESS 

861 032762 010465 000000 MOV R4, TSDBCRS ) s ISSUE COMMAND 

862 032766 004737 016330 JSR PC ,WAITF sWAIT FOR SSR TO SET 

863 032772 016501 000002 MOV TSSRCRS),R1 ;sPICK UP TSSR 

864 032776 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED (SSR ONLY) 

865 033002 020102 CMP R1,R2 sWAS STATUS GOOD 

866 033004 001406 BEQ 160% ;BR, IF TERMINATION WAS GOOD 

867 033006 005237 002214 INC FATFLG ;ERROR T 

871 033012 ERRHRD ERRNO, TSOWDC,PKTSSR ;TSSR NOT CORRECT AFTER WRT TAPE M., 
033012 104456 TRAP CSERHRD 
033014 000316 -WORD 206 
033016 040362 . WORD T3OWOC 
033020 012126 .WORD PKTSSR 

872 033022 160$: CXL Our ;LOOP IF SELECTED 
033022 104406 TRAP CsCLPl 

873 033024 005237 036654 INC T30OF CN ;COUNT THE “FILE” COUNTER DOWN 

874 033030 023727 036654 000006 CMP TSOFCN, 06 sWRITE S FILE TO TAPE 

aoe 033036 001273 BNE 64% ;BR, IF NOT AT 5S FILES WRITTEN 

id f POOAEEEHEAEEAEESAEEESESESERESEAEEEEEEEREDEEEEOEEDEEEED EES 

878 


: 
879 ;sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
: 


reat ne HARDWARE TEST 1-8 TEST MACRO M1115 O06-FEB-84 18:04 


931 


SKIP TAPE MARKS 


033112 


033114 


033144 
033144 


033146 


012737 


016501 


013701 
2 


141011 036620 


002214 


011074 


000002 
002214 


GI 


SE@ 110 


89900606 0660606466 066646664646 46666466666466646664666464666646666464664666 


MOV #141011, TSOPKS sWRITE TAPE MARK,ACK,CVC*1 COMMAND 

MOV @TSOPKS ,R4 ;sSET UP R4 WITH PACKET ADDRESS 

MOV R4, TSOBCRS) s ISSUE COMMAND 

JSR PC ,WAITF sWAIT FOR SSR TO SET 

MOV TSSR(RS), R1 sPICK UP TSSR 

MOV @SSR ;SET UP EXPECTED (SSR ONLY) 

CMP R1,R2 sWAS STATUS GOOD 

BEQ 165% ;BR, IF TERMINATION WAS GOOD 

INC FATFLG ;ERROR COUNT 

ERRHRD ERRNO, TSOWDC ,PKTSSR ;TSSR NOT CORRECT AFTER WRT TAPE M. 
TRAP CSERHRD 
-WORD 207 
-WORD T30WDC 
-WORD PKTSSR 


165$: | CKLOOP ;LOOP IF SELECTED 


TRAP CsCLP1 


PRO HMREEAHASHEAAEHEHAEREAHEHARHEHREEEAREHEHEAEE HAHAHA HEH ERE HAR HED 


3 
; ISSUE A REWIND TO TAPE ORIVE AND WAIT FOR SSR TO SET 


a 
$2 20426664664046646646668 6606666666646 46464464668666646464646464646646464664466 


JSR — sCALL TAPE REWIND COMMAND 


BCS 170 ;BR, IF NO PROBLEM 

MOV RO,R sGET PACKET ADORESS 

MOV TSSRCRS), Ri ;GET STATUS REGISTER 

INC FLG ;ERROR COUNT 

ERRHRD ERRNO. TSORWN,PKTSSR ; REWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORDB 208 
-WORD TS3ORWN 
-WORD PKTSSR 

170$: CKLOOP ;LOOP IF SELECTED 

TRAP CscLPl 


§ 966006686666 66664660664666666666666664666664686666668466646646666 


5 
;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


; 
£9 OO6646 6666646666466 6604646066064608668666660846666646068646666464646464646464686 


MOV TSOBFR+6,R1 ;PICK UP XSTO 

MOV R1,R2 ;SET UP EXPECTED 

BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 
CMP R1,R ;D0ES EXP = REC'D 

BEQ 180$ ;BR, IF EQUAL (OK) 


;ERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP C SERHRD 
. WORD 209 
T3OBO0T 
EXPREC 


CSsCLPi 


INC LG 
ERRHRD ERRNO, TSOBOT,EXPREC 


180$; CKLOOP é ;LOOP IF SELECTED 


TEST 1 


TEST 2: SKIP TAPE MARKS 


969 
970 
971 
972 
975 
974 
978 


012705 
013737 
011537 
012704 


004737 
103407 
005237 
010001 


104456 
000322 


005052 
012114 
104406 


012737 
012737 


000000 
013727 
000000 


104456 
000525 
037114 


036636 
002174 
036516 
036500 


010742 
002214 


141010 
00000 


002116 
177772 
177756 
036656 


036520 


H9 


- MAROWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 


MOV oTsoIMv,RS 

MOV UNITN, TS00SW 
1623: MOV (R35), TSOETM 

MOV @TSOPACKET ,R4 


SE@ 111 


;SET UP POINTER TO COMMAND TABLE 
;SET UP UNIT NUMBER 

;GET NEXT COMMAND 

sSUBROUTINE NEEDS PACKET ADDRESS 


§OOO6O6606666 8066686666086 F6468466646O66646O4644464O464646HOSSEEHES 


; 
; ISSUE WRITE CHARACTERISTICS COMMAND 


JSR PC ,WRTCHR 
BCS 188$ 
INC FATFLG 

Vv RO 


MO »R1 
ERRHRD ERRNO,WRIMSG, SF IMSG 


1883: CKLOOP 


a, WRITE CHARACTERISTICS 

;6R, IF COMMAND ISSUED OK 
sERROR COUNT 

; SAVE CONTENTS OF TSSR 

;sWRITE CHARACTERISTISC — 


C SERHRO 
-WORD 210 
-WORD WRTMSG 
-WORD SF IMSG 
;LOOP IF SELECTED 
TRAP 


CScCLPl 


2000666686666 666666666666666466666666666666666666666666666686 


4 
;SKIP TAPE MARK ,ACK,CVC=1 COMMAND 


€ 
3920680666 666466666666668686666666866646666666686668660666664666686 


MOV #141010, TSOPKS 
MOV #1, T30RB 
MOV @TSOPKS .R4 
189%: MOV R4, TSOBCRS) 
MOV #65000. , TSODLY 
MOV TSSR(RS),R1 
BIT @SSR,R1 
BNE 191% 
DELAY 250 
DEC T3ODL Y 
BNE 190$ 
1918: MOV @SSR ,R2 
CMP R1,R2 
BEQ 1928 
INC FATFLG 
ERRHRD ERRNO, T50SKM, PKTSSR 


;SKIP TAPE MARK ,ACK, i 1 COMMAND 
;SET UP NUMBER TO SK 

;SET UP R4 WITH SarneT ADDRESS 

; ISSUE COMMAND 

;SET UP DELAY COUNTER 

;WAIT FOR SSR TO SET 

;PICK UP TSSR 

:IS SSR SET YET 


;BR, IF SSR IS SET 

;CALL DELAY ROUTINE 
. WORD ) 
MOV LSOLY,CPC)- 
. WORD 0 
DEC -6( PC) 
BNE -4 
DEC -22( PC) 
BNE 20 

;BUMP DELAY ROUTINE 

;8R, IF MORE DELAY TO GO 

;SET UP EXPECTED (SSR ONLY) 

;WAS STATUS GOOD 

;BR, IF TERROn Cam WAS GOOD 

ERROR COUNT 

;TSSR NoT CORRECT AFTER SKIP TAPE ™, 
TRAP CSERHRO 
. WORD ell 
. WORD TSOSKM 


012126 
104406 


015701 


0137537 


012757 


177777 
017502 
003116 


147350 
177777 


002214 


036622 


036620 
036626 


i92$s: 


19 


CKt OOP 


3 
;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


195%: 


MOV R1,R2 

BIS *BITi5,R2 

CMP R1,R2 

BEQ 1958 

INC FATFLG 

ERRHRD ERRNO, TSOTMK ,EXPREC 
CK_OOP 

MOV @177777,R0 

JSR PC .FILLMEM 

MOV FREE, TSORB 


SE@ 1ll2 
.WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPl 
;sPICK UP xSTO 
;SET UP EXPECTED 
;SET TMK BIT IN EXPECTED 
;D0ES EXP = REC'D 
;B8R, IF EQUAL (OK) 
;ERROR COUNT 
3; TMK NOT SET AFTER WRT TAPE MARK 
TRAP CSERHRD 
. WORD 212 
. WORD T3SOTMK 
-.WORD EXPREC 
;L00P IF SELECTED 
TRAP CSCLPl 


;VALUE TO WRITTEN TO MEMORY 
sFILL MEM WITH ALL ONES 
;STARTING READ BUFFER ADDRESS 


; 
sREAD FORWARD,ACK,CvC=1 COMMAND 
; 


2008: 





MOV #140001, TS0PK5 
MOV @TSOPK3,.R4 
MOV #2000. ,130SZ 
MOV R4, TSOBC(RS) 
JSR PC ,WAITF 
MOV TSSR(RS),R1 
MOV @SSR ,R2 
CMP R1,R2 
BEQ 200% 
INC FATFLG 
ERRHRD ERRNO, TSORDF .PKTSSR 
CK. OOP 
MOV @FREE .R1 
MOV @177777,R2 
R1,R2 
2208 


INC FATFLG 
ERRHRD ERRNO, TSODTR,EXPREC 


;sREAD FORWARD ,ACK.CvC-1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UWP RECORD SIZE IN PACKET 

:; ISSUE COMMAND 
;sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 


;BR, IF OK 
sERROR COUNT 
:;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
. WORD 213 
. WORD T SORDF 
. WORD PKTSSR 
;LO0P IF SELECTED 
TRAP CSCLPl 
sF IRST LOC IN READ BUFFER 
sEXPECTED IF NO DATA TRANS. 
;0I1ID ANY CATA GET TRANSFERRED 
;BR, IF NO DATA TRANS (GOOD) 
;ERROR COUNT 
;DATA TRANSFERRED ON READ TAPE MARK 
TRAP CSERMRD 


TEST 1 
TEST 


- HARDWARE TEST 1-8 TEST MACRO M1115 


033714 


000326 
041070 
015554 


104406 
012702 
017701 


016501 


013701 
2 


2: SKIP TAPE MARKS 


001001 
147312 


002214 


011074 


000002 
002214 


036530 
000002 


002214 


7 


2208: 


228%: 


34000688 E2OO6O8 4648666468864 4SSEOEEEEEEEEEEEEEEEEEEEEOE 


CKLOOP 


06-FEB 84 18:04 


#1001,Re 
SF REE ,R1 


R2,R1 
228% 
FATFLG 


ERRNO, TSOPTB,EXPREC 


JI 


SEQ 115 


;LOOP IF SELECTED 


. WORD 
. WORD 
. WORD 


TRAP 


214 
T3ODTR 
EXPREC 


CSCLP1 


;SET UP RECORD NUMBER EXPECTED ‘FILE 2) 


;GET INFO FROM BUFFER 


;ARE THEY EQUAL 


;8R, IF EQUAL (OK) 


; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


; 
£9 OO2O0664666666666664646466466666666466666640466666066606666646266666 


PC ,REWIND 


2308: 


§ 9680064066 660466864666664666646665664666666646646644646666646666666 


‘ 
;GET EXTENDED STATUS REGISTER ZERO (XSTO) FRUM MESSAGE BUFFER 
a 


§ 92066668 646640466466466646466066666666464664646466464646646664664646646464466 


24038: 


ERRHRD ERRNO, TSORWN,PKTSSR 


CKLOOP 


CKLOOP 
TST 


230$ 


RO,R4 
TSSRCRS),R1 


FATFLG 


TSOBFR+6,R1 


ERRNO, TS0B0T ,EXPREC 


CR3)> 


s;ERROR COUNT 

sRECORD POSITION WAS NOT CORRECT 
TRAP 
. WORD 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 

;CALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

;SAVE PACKET ADDRESS 

;GET TSSR STATUS 

;ERROR COUNT 

;REWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 
. WORD 

;LO0OP IF SELECTED 
TRAP 


;sPICK UP xSTO 
;SET UP EXPECTED 


;sSET BOT BIT IN EXPECTED 


;D0ES EXP = REC'D 


;BR, IF EQUAL (OK) 
s;ERROR COUNT 


;TAPE NOT AT BOT AFTER REWIND 
: TRAP 


;LOOP IF SELECTED 


TRAP 
;sPOINT TO NEXT POSITION 


T30P TB 
EXPREC 


CSCLP1 


CSERHRD 


T3ORWN 
PKTSSR 


CsCLPl 


CSERHRD 
21? 
T30B0T 
EXPREC 


CsCLPl 


KY 
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1079 033716 011301 MOV (R3),R1 ;GET NEXT COMMAND ETC. 

1080 033720 020127 177777 CMP R1,0177777 sEND OF TABLE MARKER 

1081 033724 001402 BEQ 330% ;BR, IF AT END OF TABLE 

1082 033726 000137 033214 JMP 182$ ; TO MORE COMMANDS TO DO 

1083 033732 3308: CKLOOP ;LOOP IF SELECTED 
033732 104406 TRAP CSCLPl 

1084 033734 ENDSUB 3<<eceececcece END SUBTEST >>>>>>>>>>> 
033734 L10044; 
035/34 104405 TRAP CsESUB 

1085 033736 023727 002214 000017 CMP FATFLG, #15. ;IS ERROR COUNT AT 25 

1086 033744 103402 BLO 999% ;BR, IF LESS THAN 25 

1087 033746 004737 017262 JSR PC ,CKDROP ;TRY TO OROP THE UNIT 

1088 033752 999$: 

1089 + ; 

1090 ; 

ees ;TEST 2, SUBTEST 2 

2 

1093 ;VERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE 

1094 ;MARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS 

1095 ;0F 2,3,8,64,256, AND Si2 ARE TESTED. THE 

pte: ;TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 

1 ; 

1098 ; 

1099 ; 

1100 a 

1101 

1102 033752 BGNSUB8S ;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
033752 T2.2: 
033752 104402 TRAP CsBSUB 

1103 033754 004737 041252 JSR PC, TSOREST ;SET COMMAND PACKET 

1104 033760 005037 0O 54 CLR T3OF CN ‘CLEAR FILE COUNTER 

1105 033764 004737 041344 JSR PC, T3SORT2 ;SET UP OTHER COMMAND PACKET 

1106 033770 004737 041406 JSR PC, TSORTS ;SET UP OTHER COMMAND PACKET 

11907 033774 012737 176750 036656 MOV #65000. , TSODLY ;SET UP DELAY COUNTER 

1108 034002 004737 016054 10$: JSR PC, SOF INIT ;00 INITIALIZE ON CONTROLLER 

1109 034006 103426 BCS 20$ ;BR IF INIT WAS OK 

1110 034010 DELAY 250 ;DELAY ROUTINE CALL 
034010 012727 000250 MOV #250,(PC )>+ 
034014 000000 . WORD 0 
034016 013727 002116 MOV LSDOLY,CPC)-+ 
034022 000000 . WORD 0 
034024 005367 177772 DEC -6(PC) 
034030 001375 BNE .-4 
034032 005367 177756 DEC -22¢(PC) 
034036 001367 BNE .-20 

1111 034040 005337 036656 DEC TSODL Y ;BUMP COUNTER 

1112 034044 001356 BNE 10$ ;8R, IF MORE COUNTING TO DO 

1113 034046 005237 002214 INC FATFLG ;ERROR COUNT 

1117 034052 010001 MOV RO,R1 :;CONTENTS OF TSSR REGISTER 

1118 034054 ERRDF ERRNO, SFIERR,SFIMSG ;sFATAL ERROR TSSR WAS NOT OK 
034054 104455 TRAP CSERDF 
034056 000332 . WORD 218 
034060 003646 . WORD SFIERR 
034062 012114 . WORD SF IMSG 

1119 034064 

1120 034064 013737 002174 036520 MOV UNITN, TS3O0DSW ;SET UP UNIT NUMBER 

1121 034072 012704 036500 MOV @TSOPACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


2 
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ll2e 

1123 j PARA EREAEAERARESHEEEEEAAEEASEAASEAREEEEEEEAESEEEEEEREDES 

1124 ; 

we ; ISSUE WRITE CHARACTERISTICS COMMAND 

3 

1127 j PARAS EAEAAEDESESEEEEAEERASEEASESEEEEEEEEEEAEEEEEAAERES 

1128 

1129 034076 004737 010742 JSR PC ,WRTCHR ;ISSVE WRITE CHARACTERISTICS 

1130 034102 103407 BCS 23% ;BR, IF ERROR ISSUED OK 

1131 034104 005237 002214 INC FATFLG RROR COUNT 

1135 034110 010001 MOV RO,R1 3; SAVE CONTENTS OF TSSR 

1136 034112 ERRHRD ERRNO,WRIMSG, SF IMSG ; WRITE CHARACTERISTISC FAILED 
034112 104456 TRAP CSERHRD 
034114 000333 -WORD 219 
034116 005052 -WORD WRTMSG 
034120 012114 . WORD SF IMSG 

1137 034122 23%: CKLOOP ;LOOP IF SELECTED 

nse0 034122 104406 TRAP CsCLP1 

1139 fPARAAEESESESEHSEEEEEEEEEDEDESEAEEEEEESEEEEEEEAEEEREREEEEE 

1140 ; 

tht ; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

1143 , SbODOROSERODEOSESESOOSESEOOSROEESERSESODEODEADESOCRESEES 

1144 

1145 034124 004737 011074 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

1146 0341350 103411 BCS 30$ ;BR, IF NO PROBLEM 

1147 034132 010004 MOV RO,R ;GET PACKET ADDRESS 

1148 034134 016501 000002 MOV TSSRCRS), R1 ;GET STATUS REGISTER 

1149 034140 005237 002214 INC FATFLG ;ERROR COUNT 

1153 034144 ERRHRD ERRNO, TSORWN,PKTSSR ;REWIND NOT ACCEPTED 
034144 104456 TRAP CSERHRD 
034146 000334 -WORD 220 
034150 040240 . WORD T3ORWN 
034152 012126 .WORD PKTSSR 

1154 034154 30$: CKLOOP ;LOOP IF SELECTED 

1395 034154 104406 TRAP CsCLP1 

113; 5 CRAAAEAESESERESEEEEESEEEEEASEAEEEEAEESESESEEEEEDEDEEED REEDS 

3 

te ;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

erty  RbOSRSSEEDESEDSERESEESODEEEDEEDEROREOESERSESOOSSEORORSOS 

1162 034156 013701 036530 MOV T3OBFR+6,R1 ;PICK UP XSTO 

1163 034162 010102 MOV R1,R2 ;SET UP EXPECTED 

1164 034164 052702 000002 BIS #BIT1,R2 sSET BOT BIT IN EXPECTED 

1165 034170 020102 R1,Re ;D0ES EXP = RE-'D 

1166 034172 001406 BEQ 40$ ;BR, IF EQUAL (OK) 

1167 034174 005237 002214 INC FATFLG ;ERROR COUNT 

1171 034200 ERRHRD ERRNO, TS0B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
034200 104456 TRAP CSERHRD 
034202 000335 -WORD 221 
034204 040041 . WORD T3OB0T 
034206 015554 -WORD EXPREC 

1172 034210 40$: CKLOOP ;LOOP IF SELECTED 
034210 104406 TRAP CsCLPl 


1175 
1174 


1226 


034212 
034220 
034224 
034232 


0 
034414 


012737 
012703 
013737 
012737 


012737 
012704 


012737 


000001 
000001 
003116 
000024 


000021 


141011 


036620 
000000 


016350 
000002 


400200 


002214 


036654 


64%: 


036622 65%: 


036626 


036620 


036620 


MOV 
MOV 
MOV 
MOV 


reat .: rig aa PS) TEST MACRO M1115 06-FEB-84 18:04 


FREE 
#20. 


» TSOWB 
» 130SZ 


SEQ 116 


sSET “FILE” COUNTER AT 1 DECIMAL 
;ONE RECORD PER “FILE” 

;SET UP PACKETS‘'S WRITE BUFFER 
sSET RECORD SIZE AT 2000 BYTES 


SRE EREREEARHEAHEAEHKAETARR EH HARES HAS EARERHEHREHAAAHEHRER EH RAR ERA D 


; 
sWRITE DATA,ACK,CvC=1 COMMAND 
; 


Ss SSSAAASSAASSESEAESSSSSEEEEEASASAAESESEASESESEASESESESEEAAAZEES 


70$: 


#140005, T30PK3 ;WRITE DATA,ACK,CVC=1 COMMAND 
@T3SOPK3,R4 3;SET UP R4 WITH PACKET ADDRESS 
T3OFCN,R2 ;GET FILE COUNTER 
Re sMOVE TO UPPER BYTE 
R3,R1 ;GET RECORD COUNTER 
R2,R1 sF ILE COUNTER IN UPPER, RECORD @ LOW 
R1,@FREE sMOV TO OUT PUT BUFFER 
R4, TSOBCRS) ; ISSUE COMMAND 
PC ,WALTF ;WAIT FOR SSR TO SET 
TSSRCRS),R1 ;GET TSSR CONTENTS 
@SSR ,,R2 ;SET UP EXPECTED 
R1,R2] ;ARE THEY EQUAL 
70$ ;BR, IF OK 
FATFLG ;ERROR COUNT 
ERRNO, TSOWDD ,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 222 
. WORD T30WDD 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
R3 ;COUNT THE RECORD COUNTER DOWN 
R3,021 ;AT 20 YET 
65$ ;BR, IF NOT AT 20 RECORDS WRITTEN 


j SPARE HEEEAEEEEEEEEEREEEEEEEEAEEEERESEEEEEAEEEEEREREEEEEEDSE 
; 
;WRITE TAPE MARK,ACK,CVC=1 COMMAND 


2 
s PFHSSASSASRSESESASESASESSAEESEASESASAESESA*AESASASESEEEASASESASESE 


160$: 


CKLOOP 


#141011, TSOPK3 ;WRITE TAPE MARK,ACK,CVC=1 COMMAND 
#T30PK3,R4 ;SET UP R4&4 WITH PACKET ADDRESS 
R4,TSOBCRS) ; ISSUE COMMAND 

PC ,WAITF ;WAIT FOR SSR TO SET 

TSSRCRS),R1 ;PICK UP TSSR 

SSR ,R2 ;SET UP EXPECTED (SSR ONLY) 

R1,R2 ;WAS STATUS GOOD 

160$ ;BR, IF TERMINATION WAS GOOD 


FATF 


INC LG 
ERRHRD ERRNO, TSOWDC ,PKTSSR 


;ERROR COUNT 
;TSSR NOT CORRECT AFTER WRT TAPE M. 


TRAP CSERHRD 
-WORD 225 
-WORDB T30WODC 
-WORD PKTSSR 


;LOOP IF SELECTED 


N9 
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034414 104406 TRAP CSCLP1 

1227 034416 005237 036654 INC T3OFCN ;COUNT THE “FILE” COUNTER DOWN 

1228 034422 023727 036654 900031 CMP T3OFCN, #25. ;sWRITE 25 FILES TO TAPE 

rH 034430 001273 BNE 64$ ;BR, IF NOT AT 25 FILES WRITTEN 

1231 j PRAAAAEAAEAASEAERASERESESESEASDEAEEESAAEEEEAEEEDEDRE REBELS 

1232 ; 

14 ;WRITE TAPE MARK,ACK,CVC=1 COMMAND 

; 

1235 j PARSAAEAAESHASEASEAESAASESEEEEAEEEEAESASEREAEEEREEREEEEEEESE 

1236 

1237 034432 012737 141011 036620 MOV #141011, TSOPKS ;WRITE TAPE MARK,ACK,CVC=1 COMMAND 

1238 034440 012704 036620 MOV &TSOPKS,R ;SET UP R4 WITH PACKET ADDRESS 

1239 034444 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

1240 034450 004737 016550 JSR PC ,WAITF ;sWAIT FOR SSR TO SET 

1241 034454 016501 2 MOV TSSRCRS),R1 ;PICK UP TSSR 

1242 034460 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED (SSR ONLY) 

1243 034464 020102 CMP R1,Re2 ;WAS STATUS GOOD 

1244 034466 001406 BEQ 165$ ;BR, IF TERMINATION WAS GOOD 

1245 034470 005237 002214 INC FATFLG sERROR COUNT 

1249 034474 ERRHRD ERRNO, TSOWOC ,PKTSSR ;TSSR NOT CORRECT AFTER WRT TAPE M. 
034474 104456 TRAP CSERHRD 
034476 000340 . WORD 224 
034500 040362 . WORD T30OWDC 
034502 012126 . WORD PKTSSR 

1250 034504 165$: CKLOOP ;LOOP IF SELECTED 

25) 034504 104406 TRAP CscLP1 

eu f SORESSEEAEEEEEESEESEEEESEEEEESEAEEOEEEEESEEEEEDEEEEEREEEEEE 

1255 ; 

44 ; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

134 $000060000000000000000000000000000000008000000000000000008 

1 

1258 034506 004737 011074 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

1259 034512 103411 BcsS 170$ ;BR, IF NO PROBLEM 

1260 034514 010004 MOV RO,R4 ;GET PACKET ADDRESS 

1261 034516 016501 000002 MOV iSSRCRS),R1 ;GET STATUS REGISTER 

1262 034522 005237 002214 INC FATFLG ;ERROR COUNT 

1266 034526 ERRHRD ERRNO, TSORWN,PKTSSR ;REWIND NOT ACCEPTED 
034526 104456 TRAP CSERHRD 
034530 000341 . WORD 225 
034532 040240 . WORD T3ORWN 
034534 012126 . WORD PKTSSR 

1267 034536 170$: CKLOOP ;LOOP IF SELECTED 

—_— 034536 104406 TRAP CsCLPl 

+44 PUTT T IT ITT TTT iti ri iririitittitititiiiititiititiiti i yiiti ty 

. 

af oe ;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

thy s eshnnnnbenandasesseaneneenesesnnenaneenenenasaanesennenes 

1274 

1275 034540 013701 036530 MOV TSOBFR+6,R1 ;PICK UP xSTO 

1276 034544 010102 MOV R1,R2 ;SET UP EXPECTED 

1277 034546 052702 000002 BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 

1278 034552 020102 CMP R1,R2 ;D0ES EXP = REC'D 


005052 
012114 


104406 


0127357 
013737 
012704 
010465 
0127357 
004737 
016501 
032701 
001017 


012727 
000000 
013727 
000000 
005367 
001375 


005567 
001367 


002214 


010742 
002214 


141010 
C36654 


000250 
002116 
177772 
177756 


036620 
036622 


036656 


1808; 


1828: 


1888: 


S SSSHSSSSHSSSHSSSSSSSSSSSSSHSSESSSESHESHSHSHSEHSSHESSEHESHHSESEEEEEEEEES 


GEQ 
INC 
ERRHRD 


CKLOOP 


B10 
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180% 
FATFLG 
ERRNO, TSOBOT ,EXPREC 


02, TSOFCN 
@TSOIMV,RS 
UNITN, TS00SW 
(R3), TSOETM 
@TSOPACKET ,R4 


: 
;SKIP TAPE MARK,ACK,CVvC*1 COMMAND 


‘ 
§ 908666660 66066660666666866666686666866686866866866666066666686686686 


1898: 
1908: 


#141010, T30PK5 
TSOF CN, TSORB 


5000. ,7T3S0DLY 


TSSR(RS), Ri 
OSSR,R1 
1918 

250 


ERRNO, WRIMSG, SF IMSG 


SEQ@ 116 


;8R, IF EQUAL (OK) 
sERROR COUN 
s;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
. WORD 


TRAP 


sLOOP IF SELECTED 

sSET TO NUMBER OF SKIP “FILES” 
sSET UP POINTER TO COMMAND TABLE 
sSET UP UNIT NUMBER 

sGET NEXT COMMAND 

sSUBROUTINE NEEDS PACKET ADDRESS 


8290066666 666066666666666666666666666666666666666666666666666 


’ 
; ISSUE WRITE CHARACTERISTICS COMMAND 


i 
§ OOOO 66 6686646688465 8OOOS 4644468854 SFSSSSSOOSSESESESEESEEEEEEESE 


s ISSUE WRITE CHARACTERISTICS 


3BR, IF COMMAND ISSUED OK 


sERROR COUN 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC a 


. WORD 
. WORD 
. WORD 


TRAP 


sLOOP IF SELECTED 


T3060T 
E XPREC 


CsCLPi 


CscLPi 


sSKIP TAPE MARK gSwk -SNG® 1 COMMAND 


;SET UP NUMBER TO SKIP 

sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

3;SET UP DELAY COUNTER 

sWAIT FOR SSR TO SET 

;sPICK UP 
:3IS SSR SET YET 
;8R, IF SSR IS SET 
sCALL DELAY ROUTINE 


O 


-6( PC) 
4 


“22(PC) 
20 


013701 
010102 


013737 


0127357 


005257 


104456 
000346 
037413 


036656 


036530 
100000 


002214 


177777 
017502 
003116 


036622 


036620 
036626 


1918: 


1928: 


INC FATFLG 
ERRHRD ERRNO, TSOSKM,PKTSSR 


CKLOOP 


HBR M ORB brand -§ TEST MACRO M1115 06-FEB-84 18:04 


C10 


SEQ 119 


sBUMP DELAY ROUTINE 

;6R, IF MORE DELAY TO GO 
s;SET UP EXPECTED (SSR ONLY) 
sWAS STATUS GOOD 

;8R, IF aie Gia WAS GOOD 


7 OR COUNT 
3TSSR NOT CORRECT AFTER aa TAPE MM. 


C SERHRD 
WORD 228 
.WORD 1T30SKM 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1L 


8 OOOO 6O68SOSOSSOOSSSSESSSESEEHESEEEEEHEEEEEEEEEEE1HESEEEEEEESE 


3 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


§9O0606 6666660666686 6666606666666666 8468668686686 6686866664666666686 


1953: 


TSOBFR *6,R 
R1,R 


FATFLG 
ERRNO, TSOTMK ,EXPREC 


@177777,R0 
PC .FILLMEM 


FREE , TSORB 


1 


sPICK UP xSTO 

s;SET UP EXPECTED 

;SET TMK BIT IN EXPECTED 
sD0ES EXP = REC'D 

;8R, IF EQUAL (OK) 


sERROR COUNT 
; TMK NOT SET AFTER WRT TAPE MARK 


TRAP CSERHRO 

-WORD 229 

-WORDB TS3OTMK 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CsCLPi 


;VALUE TO WRITTEN TO MEMORY 
;sF ILL MEM WITH ALL ONES 
;STARTING READ BUFFER ADORESS 


§ 928068666066 666866666666660666666066666 6666686868666 66466666868686 


: 
sREAD FORWARD,ACK,CVC*1 COMMAND 


3 
3260666666 6066666866666666666606068660666668666668666466666666666686 


#140001 , TSOPKS 


I FATFLG 
ERRHRD ERRNO, TSORDF ,PKTSSR 


@TSOPKS ,R4 


TSSR(RS), R 
OSSR ,R2 
R1,R2 


1 


sREAD FORWARD ,ACK,CVC*1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
473% aauniodh SIZE IN PACKET 


sSET UP EXPECTED 
sARE THEY EQUAL 


;8R, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHED 
. WORD 30 
. WORD T SORODF 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 O06-FEB-84 18:04 
TEST 2: SKIP TAPE MARKS 


SEQ@ 120 


035136 012126 -WORD PKTSSR 

1377 035140 2008: CKLOOP sLOOP IF SELECTED 
035140 TRAP CscCLPi 

1378 035142 017701 145750 MOV OFREE ,R1 sFIRST LOC IN READ BUFFER 

1379 035146 012702 177777 MOV 0177777,R2 sEXPECTED IF NO DATA TRANS. 

1380 035152 020102 CMP »R s0I0 ANY DATA GET TRANSFERRED 

1381 035154 001006 BNE 220% ;BR, IF NO DATA TRANS (GOOD) 

1382 035156 0052357 002214 INC FATFLG sERROR COUNT 

1386 035162 ERRHRD ERRNO, TSODTR,EXPREC sOATA TRANSFERRED ON READ TAPE MARK 
035162 104456 TRAP CSERHRD 
035164 000347 MORO 231 
035166 041070 .WORD T3OOTR 
035170 015554 WORD EXPREC 

1387 035172 2208: CKLOOP sLOOP .F SFLECTED 
055172 104406 TRAP CSCLP1 

1388 035174 013702 036654 MOV TSOFCN,R2 sGET NL @EP W SKIPS 

1389 035200 005202 INC Re sSET TO CO” ©CT FILE VALUE 

1390 035202 000502 SWAB Ro sSWAP BYTE HALVES 

1391 035204 052792 000001 BIS eBITO,Re2 3SE7 FOR RU.ORD 01 

1392 035210 017701 145702 MOV OF REE ,R1 3GET INFO FROM BUFFER 

1393 035214 020201 CMP R2,R1 ;ARE THEY EQUAL 

1394 035216 091406 BEG 228% 3BR, IF EQUAL (OK) 

1395 035220 0052357 002214 INC FATFLG sERROR COUNT 

1399 035224 ERRHRD ERRNO, TSOPTB,EXPREC sRECORD POSITION WAS NOT CORRECT 
035224 104456 TRAP CSERHRD 
035226 000350 -WORD 232 
0352350 037242 -WORD T30PTB 
035232 015554 -WORD EXPREC 

1400 0355254 2283: CKLOOP ;LOOP IF SELECTED 

1401 035234 104406 TRAP CscLPl 

cone SEASHORE HEHHSESEEESSSESESEEEEESEEEESESSLOHSEHESESEEEEEES ) 

140 ; 

poe ; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

8 

pee s PROSESEAASASEEOEEHSOEEEEEEEEAAEOEEEEEEEESOEEEESEEEESEEEES 

1S 

1408 035236 004737 011074 JSR PC ,REWINO ;sCALL TAPE REWIND COMMAND 

1409 035242 103411 BCS — 230% ;BR, IF NO PROBLEM 

1410 035244 010004 MOV . RO,R4 :SAVE PACKET ADORESS 

1411 035246 016501 000002 MOV TSSRCRS),R1 3;GET we" hl ge 

1412 035252 005237 002214 INC FATFLG RROR COUNT 

1416 ERRHRD ERRNO, TSORWN,PKTSSR sREWINO Nor ACCEPTED 
6035256 104456 TRAP CSERHRD 
035260 000351 -WORD 255 
035262 040247 ‘ -WORD TSORWN 
035264 Olcice .WORD PKTSSR 

1417 035266 250%: CKLOOP ;LOOP IF SELECTED 

aia C35266 104400 TRAP CsCLPl 

1419 FORSHEE AEEEEHSHAESEHEEESEEESESESEEEEEEEHEEEEEHEEEEEEEOES 

1420 ; 

aoe ;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

: 

1425 fSORESEOSESEHHESEHESEESESESESSEESESEEHEEEEEESESHESHESEEEEEOOS 

1424 

1425 035270 013701 036550 MOV TS0BFR+6,R1 sPICK UP XxXSTO 


E10 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 O06-FEB-84 18:04 SEQ 121 
TEST 2: SKIP TAPE MARKS 

1426 035274 010102 MOV R1,Re sSET UP EXPECTED 

1427 035276 052702 000002 BIS #BIT1,R2 sSET BOT BIT IN EXPECTED 

1428 035302 020102 CMP R1,R2 s;D0ES EXP «= REC'D 

1429 035304 001406 BEQ 2403 38°, IF EQUAL (OK) 

1430 035306 005237 002214 INC FATFLG sERROR COUNT 

1434 035312 ERRHRD ERRNO, TSOBOT ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
035312 104456 TRAP C SERHRD 
035314 000352 -WORD 234 
035316 040041 . WORD T30B0T 
035320 015554 . WORD EXPREC 

1435 035322 24038: CKLOOP ;LOOP IF SELECTED 
035322 104406 TRAP CSCLPl 

1436 035324 005723 TST C(R3)> sPOINT TO NEXT POSITION 

1437 035326 011301 MOV (R3),R1 sGET NEXT COMMAND ETC. 

1438 035330 ° 020127 177777 CMP R1,0177777 sEND OF TABLE MARKER 

1439 035334 001410 BEQ 330% ;8R, IF AT END OF TABLE 

1440 035336 013701 036654 MOV T3OFCN,R1 3GE ER OF SKIPS 

1441 035342 000241 CLC ;CLEAR THE CARRY BIT 

1442 035344 006101 ROL Ri sPUSH OVER ONE POSITION 

1443 035346 010137 036654 MOV R1, TSOFCN ;PUT BACK IN COUNTER 

1444 035352 000137 034614 JMP 182$ ; JUMP TO MORE COMMANDS TO DO 

1445 035356 3308: CKLOOP sLOOP IF SELECTED 
035356 104406 TRAP CSCLP1 

1446 035360 ENDSUS8 g<eeeceececeee END SUBTEST >»>>>>>>>>>> 
035360 L10045;: 
035360 104403 TRAP CsESUB 

1447 035362 023727 002214 000017 CMP FATFLG,@15. ;IS ERROR COUNT AT 25 

1448 035370 103402 BLO 999% ;BR, IF LESS THAN 25 

1449 035372 004737 017262 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

1450 035376 999%: 

1451 3° 

1452 ; 

1453 ;TEST 2, SUBTEST 3 

1454 3 

1455 : 

1456 ;VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 

1457 s ISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES 

1458 sFUNCTION REJECT TERMINATION, WITH THE NON-EXECUTABLE 

1459 sFUNCTION CNEF) ERROR BIT SET. 

1460 : 

1461 . 

1462 : 

1463 : 

1464 : 

1465 

1466 035376 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
035376 T2.3: 
035376 104402 TRAP CsBSUB 

1467 035400 004737 041252 JSR PC, T3SOREST :3SET COMMAND PACKET 

1468 035404 005037 036654 CLR T30OF CN ;CLEAR FILE COUNTER 

1469 035410 004737 041344 JSR PC, T3ORT2 ;SET UP OTHER COMMAND PACKET 

1470 035414 004737 041406 JSR PC, T3SORTS3 ;SET UP OTHER COMMAND PACKET 

1471 035420 012737 176750 036656 MOV #65000. , TSODLY ;SET UP DELAY COUNTER 

1472 035426 004737 016054 10%: JSR PC ,SOF INIT 3:00 INITIALIZE ON CONTROLLER 

1473 035432 103426 BCS 20$ ;68R IF INIT WAS OK 

1474 035434 DELAY 250 s;DELAY ROUTINE CALL 
035434 012727 000250 MOV 9250,(PC)> 
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035440 000000 . WORD 0 | 
035442 013727 002116 MOV LSOLY,CPC)> 
035446 000000 . WORD @] 
035450 005367 177772 DEC -6(PC) 
035454 001575 BNE .-4 
035456 005367 177756 DEC -22(PC ) 
035462 001367 BNE .-20 

1475 035464 005337 036656 DEC T3ODL Y ;BUMP COUNTER 

1476 035470 001356 BNE 10$ ;B8R, IF MORE COUNTING TO O00 

1477 035472 005237 002214 INC FATFLG ;ERROR COUNT 

1481 035476 010001 MOV RO,R1 CONTENTS OF TSSR REGISTER 

1482 035500 ERRDF ERRNO, SFIERR,SFIMSG ;sFATAL ERROR TSSR WAS NOT OK 
025500 104455 TRAP CSERDF 
035502 000353 . WORD 235 
035504 003646 . WORD SF IERR 
035506 012114 . WORD SF IMSG 

1483 035510 20%: 

1484 035510 013737 002174 036520 MOV UNITN, TSO00SW ;SET UP UNIT NUMBER 

San 035516 012704 036500 MOV @TSOPACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 

1487 PEARSE EESESAEEAEOASSESEEEASESHSESESASHESESESEESESEHEDE 

1488 ; 

oe ; ISSUE WRITE CHARACTERISTICS COMMAND 

; 

1491 JF SOSAAAAHEEEEASEASEASSEEEEAESESEEESESEEEESEEEEEEEEESEEEEESEEES 

1492 

1493 035522 004737 010742 JSR PC ,WRICHR ; ISSUE WRITE CHARACTERISTICS 

1494 035526 103407 BCS 23% ;BR. IF COMMAND ISSUED OK 

1495 035530 005237 002214 INC FATFLG ;ERROR COUNT 

1499 035534 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

1500 035536 ERRHRD ERRNO,WRITMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
035536 104456 TRAP CSERHRD 
035540 000354 . WORD 236 
035542 005052 . WORD WRTMSG 
035544 012114 . WORD SF IMSG 

1501 035546 233: CKLOOP ;LO0OP IF SELECTED 

— 035546 104406 TRAP CSCLPl 

bane sOREEEEESEEEEEESESEEEEESEHEAESEEESSEEEAEEESESEEEEEESEODEEE 

1 ; 

coos ; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

‘ 

ia4 = SSS PEEEHEAEEEEEEAEEEEEESESESESEEEEESEESESEEEESEEEHEEEEEEEEOE 

1509 035550 004737 011074 JSR PC REWIND ;CALL TAPE REWIND COMMAND 

1510 035554 103411 BCS 30$ ;8R, IF NO PROBLEM 

1511 035556 010004 MOV RO,R4 ;GET PACKET ADDRESS 

1512 035560 016501 000002 MOV TSSRCRS),R1 ;GET STATUS REGISTER 

1513 035564 005237 002214 INC FATFLG ;ER COUNT 

1517 035570 ERRHRD ERRNO, TS0RWN,PKTSSR ;REWIND NOT ACCEPTED 
035570 104456 TRAP CSERHRD 
035572 000355 . WORD 237 
035574 040240 . WORD T3ORWN 
035576 012126 . WORD PKTSSR 

1518 035400 30%: CKLOOP ;LO00P IF SELECTED 
035000 104406 TRAP CSsCLPl 


- HARDWARE 


TEST 


SKIP TAPE MARK 


035716 
035716 


035720 
035724 
035726 
035732 
035734 
035736 
035742 


0137C1 


104406 
012737 


012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 


104456 
000357 
037031 
012126 


104406 


013701 


005257 


141410 
036620 


000000 
016330 
000002 
100206 


002214 


036530 
002000 


002214 


036622 


036620 


GLO 


d- -8 TEST MACRO M1113 06-FEB-84 18:04 


SEQ 125 


s PORAMOOHEEEESEESEEEEESESESEEEEEEEEEEEEEEOEEEEEEEEEEEESEES 
4 
;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


: 
§ OOO O66 6668660666666 666686 6466646666666 6666666646664666466466646666 


MOV TSOBFR+6,R1 

MOV R1,R2 

BIS oBIT1,R2 

CMP R1,R2 

BEQ 403 

INC FATFLG 

ERRHRD ERRNO, T30B0T,EXPREC 
40$: CKLOOP 

MOV 01, T30WB 


;PICK UP xSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;DO0ES EXP = REC'D 

;BR, IF EQUAL (OK) 


;ERROR COUNT 
; TAPE NOT AT BOT AFTER REWIND 


TRAP CSERHRD 
-WORDB 238 
-WORD T3080T 
-WORD EXPREC 


;LOOP IF SELECTED 
;sSET @ OF TM TO SKIP 


TRAP CSCLPi 


§ 9600666666646 666646666666664646666666666466646666666666666666666 


a 
;SKIP TAPE MARK REVERSE ,ACK,CvC=1 COMMAND 


° 
§ 296866666686 668 6646668666646 68 666664666668 6668864666646466646464868 


MOV #141410, TS0PK5 

MOV @TSOPKS ,R4 

MOV R4, TSDB(RS) 

JSR PC ,WAITF 

MOV TSSR(RS),R 

MOV ossRiSciBITi!erT2, Re 
CMP R1,Re2 

BEQ 70$ 


INC FATFLG 
ERRHRD ERRNO, TSOIBT,PKTSSR 


70$: CKLOOP 


;SKIP TAPE MARK REVERSE ,ACK,CVvC=1 CMD 
;SET UP R4 WITH PACKET ADDRESS 

:;ISSVE COMMAND 

;sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 


sERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHWRD 


-WORD 239 

-WORD TS30I6T 

.WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CsCiPi 


£2268 6660666686606 6686828466666686 F465 H444S4SEHS4SESESEEESEEEEEHES 


‘ 
;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


° 
POPPE ESET EEE TEE ETE ea 


MOV TSOBFR+6,R1 
MOV R1,R2 
BIS oBIT10,R2 
CMP R1,R 
BEQ 160% 

FATF 


INC LG 
ERRHRD ERRNO, TSONEF ,EXPREC 


;sPICK UP xXSTO 

;SET UP EXPECTED 

;SET NEF BIT IN EXPECTED 

;D0ES EXP = REC'D 

;8R, IF EQUAL (OK) 
;ERROR COUNT 

; TAPE NOT AT NEF 


E 
4 


S 
S 


T 1 
' = 


035742 
035744 
035746 
035750 
035752 
035752 
035754 
035754 
035754 
035756 
035764 
035766 
035772 


035772 


000000 
013727 
000000 


012114 


002214 
017262 


002116 
177772 
177756 
036656 
002214 


000017 


036656 


1808: 


999%: 


3* 


: 
;TEST 2, SUBTEST 4 


RTP Tabe Pkaxe © TEST MACRO M1115 06-FEB-64 16:06 


CKLOOP 
ENOSUB 


CMP 


BLO 


JSR 


H1O 


FATFLG,@15. 


SEQ 124 
TRAP C SERHRD 
-WORD 240 
-WORD TS3ONEF 
-WORD EXPREC 


;LOOP IF SELECTED 
CSCLP1 


TRAP 
3<eeeeececece*< END SUBTEST »>>>>>>>>>>> 
L10046: 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
36R, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


a 

;VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 

; ISSUED WHILE THE TAPE IS POSITIONED JUST BEFORE THE 

sFIRST RECORD ON ON TAPE (BUT NOT AT BOT) CAUSES TAPE 
;STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT 


;C(RIB) STATUS BIT SET. 


10$: 


0,R1 
ERRNO, SF IERR, SF IMSG 


3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>>> 
T2.4: 


TRAP Cs6SuU8 

;SET COMMAND PACKET 

;CLEAR FILE COUNTER 

;SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

;SET UP DELAY COUNTER 

300 INITIALIZE ON CONTROLLER 

;B8R IF INIT WAS OK 

;DELAY ROUTINE CALL 
MOV @250,(PC)- 
. WORD 8) 
MOV LsOLy,(PC)- 
. WORD 8) 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

;BUMP COUNTER 

;B8R, IF MORE COUNTING TO DO 

sERROR COUNT 

sCONTENTS OF TSSR REGISTER 

;FATAL ERROR TSSR WAS NOT OK 
TRAP C SERODOF 
. WORD 241 
. WORD SF IERR 
. WORD SF IMSG 


~——< 


036104 
036104 
036112 


015737 
012704 


004 737 
07 


005052 
012114 


104406 


013701 
010102 


002174 036520 


036500 


010742 
002214 


011074 


000002 
002214 
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. * ie tae TEST 1-8 TEST MACRO M1113 06-FEB 84 : 
2: SKIP T MARKS . _ . —_— 


208: 


MOV UNITN, T300SW 
MOV @TSOPACKET ,R4 


; 
; ISSUE WRITE CHARACTERISTICS COMMAND 


SEQ 125 


;SET UP UNIT NUMBER 


; SUBROUTINE NEEDS PACKET ADDRESS 


JSR PC ,.WRICHR 


RO,R1 
ERRNO ,WRTMSG, SF IMSG 


23%: CKLOOP 


; ISSUE WRITE CHARACTERISTICS 
:BR, IF SeRROM ISSUED OK 
RROR COUNT 

3 SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP 
. WORD 
. WORD 
. WORD 


TRAP 


;L00P IF SELECTED 


§ 90666666666 666666FSS4SSSSSESSESEESESEEEHEESEEESEESEESEEEEEESESESEEEEEE 


: 
; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


JSR PC ,REWINO 
30 


BCS : 

MOV 0,R4 

MOV TSSR(RS),R1 

INC FATFL 

ERRHRD ERRNO, TSORWN,PKTSSR 
30%: CKLOOP 


;CALL TAPE REWIND COMMAND 

;8R, IF NO PROBLEM 

;GET PACKET ADDRESS 

;GET STATUS REGISTER 
;ERROR COUNT 

;sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


§ OOOO SOO OOOO 4SSS464S S46 SSE4SES4OSSESSE4SESEEEEEESEEESEEEEEESE 


; 
;GET EXTENDED STATUS REGISTER ZERO (XS'TO) FROM MESSAGE BUFFER 


* 
§ OOOO 6068555564464 4644S44S44SFHHE4EEHESEEEEHEEEEEEHEEEEEEESE 


MOV TSOBFR+6,R1 
MOV R1,Re2 

BIS oBIT1,R2 
CMP R1,R2 

BEQ 403 


INC LG 
ERRHRD ERRNO, TS0B0T ,EXPREC 


;PICK UP xSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

;BR, IF EQUAL (OK) 


;ERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 


CscLPl 


CSERMRD 
245 
TSORWN 
PKTSSR 


CsCLPl 


CSERHRD 
244 
T30B0T 


TEST 1 
TEST 


> 


«<: 


SKIP TAPE MARKS 


015554 


104406 
015757 
0127357 


0127357 
012704 
010465 
004737 
016501 
012702 


012737 
012737 


012126 
104406 


003116 
000400 


140005 
036620 


000000 
0163350 
000002 
000200 


002214 


036622 
036626 


036620 


40%: 


CKLOOP 


MOV 
MOV 


- HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 


FREE, T30WB 
» 130SZ 


0256. 


JLO 


§ OOOO O68666O68 6486666666666 646606664666466466668666664646666664646666 


; 
;WRITE DATA,ACK,CvC=1 COMMAND 


° 
5900660686668 64444655444 S4446464FFFSHSSE4SEKESEHEEEEEEEEEEEEE 


#140005, TS0PKS 


708: 


CKLOOP 


FATFLG 
ERRNO, TSOWDD ,PKTSSR 


SE@ 126 
. WORD E XPREC 
3;LO00P IF SELECTED 
TRAP CSCLP1 
;SET UP GOOD WRITE BUFFER 
;SET UP SIZE 
;sWRITE DATA,ACK,CvC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF VER 
RROR COUNT 
;TSSR INCORRECT AFTER we DATA sain 
TRAP CSERHRD 
. WORD 245 
. WORD T30wWDD 
. WORD PKTSSR 
;LO0OP IF SELECTED 
TRAP CSCLPi1 


§ FSSSSSSHSHHESSESSSSSSSESSSSESSSESSESSSSEHAASSESEEEESESEEEEEEEEEEEEEESE 


) 
;SKIP TAPE MARK REVERSE ,ACK,CvC*=1 COMMAND 


, 
$9 O0666 86646066666 66666464666466666466466464666464666646646464646460646686 


160$: 


CKLOOP 


#1, T30WB 


#141410, aaa 


@TSOPKS,R 


R4, TSDBCRS) 


PC ,WAITF 


TSSR(RS),R1 


+ qr petit 


LG 
ERRHRD ERRNO, TSOIBU,PKTSSR 


;@ OF TM TO SKIP 

;SKIP TAPE MARK REVERSE,ACK, —s CMD 
;SET UP R4 WITH PACKET ADDRES 

; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;PICK UP TSSR 

;SET UP EXPECTED (SSR AND SC ONLY) 
;WAS STATUS GOOD 

;B8R, IF TERMINATION WAS GOOD 


;ERROR COUNT 
;TSSR NOT CORRECT AFTER WRT TAPE M. 


TRAP CSERHRD 

-WORD 246 

-WORD TS30IBU 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CsCLPl 


£942 404604664646646064646 6646464684446 446666466646646460046664466446464664666646 


° 
;GET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER 


K10 
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SE@ 127 


1719 S SHHAREAAHAEASEAAEEEEAEAAAEAEAADESREAEEAALAREEEEREDALEEEREAESS 
1720 
1721 036404 013701 036536 MOV T3OBFR+14,R1 sPICK UP xST3 
1722 036410 010102 MOV R1,R2 ;SET UP EXPECTED 
1723 036412 052702 000001 BIS #BITO,R2 ;SET RIB BIT IN EXPECTED 
1724 036416 9020102 CMP R1,Re2 s;D0ES EXP = REC'D 
1725 036420 001406 BEQ 170$ ;BR, IF EQUAL (OK) 
1726 036422 005237 002214 INC FATFLG sERROR COUNT 
1730 036426 ERRHRD ERRNO, TSORIB,EXPREC ;TAPE NOT AT RIB 
036426 104456 TRAP CSERHRD 
036430 000367 . WORD 247 
036432 036745 . WORD T3ORIB 
036434 015554 . WORD EXPREC 
1731 036436 170$: CKLOOP ;LOOP IF SELECTED 
036436 104406 TRAP CSCLP1 
1732 036440 ENDSU8S 3<<eeeee<c<eec<e END SUBTEST >>>>>>>>>>> 
036440 L10047: 
036440 104405 TRAP CsESUB 
1733 036442 023727 002214 000017 CMP FATFLG, 415. :IS ERROR COUNT AT 25 
1734 036450 103402 BLO 999$ ;B8R, IF LESS THAN 25 
1735 036452 004737 017262 JSR PC ,CKDROP ;TRY TO OROP THE UNIT 
1736 036456 999%: 
1737 ;SUBTEST END 
1738 ; 
1739 ; 
1740 036456 004737 016536 JSR PC, TSTLOOP ;00 WE NEED TO ITERATE TEST 
1741 036462 103002 BCC 400$ ;BR, IF NO LOOP REQUIRED 
1742 036464 000137 032360 JMP T3OLOOP sEXECUTE AGAIN 
1743 036470 400$: EXIT TST ;ALL DONE THIS TEST 
036470 104432 TRAP CSEXIT 
vee 036472 002736 . WORD L10043-. 
3 * 
ak ;LOCAL STORAGE FOR THIS TEST 
R= 
1748 036500 .*<,+10>E€177770 
1750 036500 TSOPACKET: ;COMMAND PACKET FOR TEST 
1751 036500 100004 . WORD 100004 ;WRITE CHARACTERISTICS COMMAND, WITH , 
1752 036502 036510 . WORD T3SODATA ;ADDRESS OF CHARACTERISTICS BLOCK 
1753 036504 . WORD 0 
1754 036506 000012 . WORD 10. ;STARTING VALUE OF BLOCK SIZE 
1755 036510 T3ODATA: ;CHARACTERISTICS DATA BLOCK 
1756 036510 036522 . WORD T3SOBFR s;ADDRESS OF MESSAGE BUFFER 
1757 036512 . WORD @) 
1758 036514 000024 . WORD 20. ;LENGTH OF MESSAGE BUFFER 
1759 036516 000000 T3SOETM: .WORD 0 ;SKIP TAPE MARK CONTROL 
1760 036520 000000 T3ODSW: .WORD 0 ;SELECT ORIVE O 
te 036522 TSOBFR: .BLKW 25. ;MESSAGE BUFFER 
; 
pay ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
; 
1766 036610 .*<,+#10>E€177770 
1768 036610 T30PKe: 
1769 036610 100006 . WORD 100006 ;sWRITE SUB SYS MEM COMMAND, AND ACK 
1770 036612 036630 . WORD T30BF 2 s;ADDRESS OF SELECT BLOCK DATA 
1771 036614 000000 . WORD 0 
1772 036616 000006 . WORD 6 ;SIZE OF DATA PACKET 
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TEST (2; SkIP TAPE MARKS 
1777 036620 T3OPKS3: 
1778 036620 100205 . WORD 100205 sREREAD COMMAND, IE AND ACK 
1779 036622 T3ORB: 
1780 036622 003116 T30OWB: .WORD FREE sADDRESS OF WRITE BUFFER 
1781 036624 000000 . WORD 0 
1782 036626 000000 T30SZ: .WORD O ;SIZE OF BUFFER CEXTENT) 
1783 .EVEN 
1784 ; 
1785 ; 
1786 
1787 036630 T30BF 2: 
1788 036630 010 T3O0BSO: .BYTE 10 ;BSELO AREA 
1789 036631 200 T30B8S1: .BYTE 200 ;68SEL1 AREA 
1790 036632 000000 T30S2: .WORD O ;SEL 2 AREA 
1791 036634 000000 T30S3: .WORD O ;DATA AREA 
1792 : 
1793 ; 
1794 .EVEN 
co ; TAPE MOTION PACKET COMMAND VALUES 
1797 036636 T3OIMV: 
1798 036636 T3ORN: 
1799 036636 000000 | -WORD 000000 ;NEITHER EWB NOR ESS 
1800 036640 000100 -WORD 000100 ;EWB SET 
1801 036642 000200 -WORD 000200 ;ESS SET 
1802 036644 000300 -WORD 000300 ;B0TH EWS ~y ESS SET 
1803 036646 177777 . WORD 177777 ;END OF DAT 
1804 
1805 ; 
1806 036650 000000 TSOCNT: .WORD 0 ;TAPE TIMER COUNTER STORAGE AREA 
1807 036652 000000 TSOCNU: .WORD 0O ;TAPE TIMER COUNTER STORAGE AREA 
1808 036654 000000 TSOFCN: .WORD O ;FILE NUMBER COUNTER 
ytt 036656 000000 TSODLY: .WORD O ;DELAY COUNTER STORAGE 
1811 sLOCAL TEXT MESSAGES FOR TEST 
i813 é 
1814 036660 124 123 123 T3OIBU: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT’ 
1815 036745 122 111 102 TS3ORIB: .ASCIZ ‘RIB Bit CXST3) Failed To Set After Reverse Into BOT’ 
1816 037031 124 123 123 TSOIBT: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK REVERSE At BOT’ 
1817 037114 124 123 123 TSOSKM: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK C 
1818 037170 124 123 123 T3OWDD: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command’ 
1819 037242 124 141 160 TSOPTB: .ASCIZ ‘Tape Not Positioned On Correct Record After READ REVERSE’ 
1820 037333 124 141 160 TSOTPB: .ASCIZ ‘Tape Not Positioned On Second File First Record’ 
1821 037413 124 123 123 TS3ORDF: .ASCIZ ‘TSSR Incorrect After READ FORWARD Into “File”’ 
1822 037471 124 123 123 TS3ORDG: .ASCIZ ‘TSSR Incorrect After SPACE Command Into TAPE MARK’ 
1823 037553 124 122 123 T3OWDF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 
1824 037630 111 154 154 TS3OLOQ: .ASCIZ ‘Illegal Mode Bits, Failed To Set ILC Bit In XSTO’ 
1825 037711 1e7 lee 111 TS3OSSR: .ASCIZ ‘WRITE MISCELLANEOUS Command Not Accepted’ 
1826 037762 124 123 123 TSOWDE: .ASCIZ 4 ene Not Correct After SKIP TAPE MARKS, At BOT’ 
1827 040041 124 141 160 TS3OBOT: .ASCIZ Tape Not At BOT After REWIND Command’ 
1828 040106 124 123 123 T30T™: .ASCIZ ‘TEER Not Correct After SPACE FORWARD Command’ 
1829 040163 124 123 123 T3O0TM2: .ASCIZ ‘TSSR Not Correct After SPACE REVERSE Command’ 
1830 040240 122 145 167 TS3ORWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
1831 040307 104 162 151 TSOOFL: .ASCIZ ‘Drive 7 Select Failed To Set "OFL” In TSSR’ 
1832 040362 124 123 123 T3O0WDOC: .ASCIZ ‘TSSR Not Correct ‘After WRITE TAPE MARK Command’ 


1833 040441 103 126 103 TS30vCK: .ASCIZ ‘CVC Set, Didr.’'t Reset VCK In Message Buffer’ 


M1O 


TEST - A T -8 TEST MACRO M 3 -FEB -84 : 
TEet A: eapwe Ele 8 S Cc 111 06 -FEB 18:04 SEQ 129 
1834 040514 124 115 113 TSOTMK: .ASCIZ ‘TMK Not Set After WRITE TAPE MARK CRETRY) Command’ 
1835 040576 123 113 111 TSONEF: .ASCIZ ‘SKIP TAPE MARKS, At BCT, Failed To Set NEF Bit’ 
1836 040655 124 115 113 T3ORRM: .ASCIZ ‘TMK Not Set After READ REVERSE Into TAPE MARK’ 
1837 040733 124 115 113 TS3ORRN: .ASCIZ ‘TMK Not Set After SPACE REVERSE Into TAPE MARK’ 
1838 041012 124 115 113 TS3ORRP: .ASCIZ ‘TMK Not Set After READ FORWARD Into TAPE MARK’ 
1839 041070 116 117 040 TSODTR: .ASCIZ ‘NO Date Transferred On READ FORWARD’ 
1840 041134 104 141 164 TSODTA: .ASCIZ ‘Date Compare Error, Date Read From Tape Not Equal To written’ 
1841 041231 123 153 151 TSTSOID: -ASCIZ ‘Skip Tape Marks’ 
1842 .EVEN 
1843 3* 
1844 ; 
1845 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
1836 ;WRITE SUBSYSTEM MEMORY COMMAND 
1847 ; 
1848 3° 
1849 
1850 041252 T3OREST: 
1851 041252 SAVREG ;SAVE THE REGISTERS 
1852 04125. 012701 036500 MOV @T3SOPACKET,R1 ;START OF THE PACKET 
1853 041262 012721 100004 MOV #100004 ,(R1)>+ ;WRITE SUBSYSTEM MEM. WITH ACK, 
1854 041266 012721 036510 MOV @T3SODATA,(CR1)>+ sADDRESS OF CHARAISTICS DATA BLOCK 
1855 041272 005021 CLR CR1)+ ;EXTENDED ADDRESS 
1856 041274 012721 000012 MOV #10. ,CR1)>+ ;SIZE OF DATA BLOCK IN BYTES 
1857 041300 012721 036522 MOV @T3OBFR,CR1)+ ;ADDRESS OF MESSAGE BUFFER 
1858 041304 005021 CLR CR1)+ 
1859 041306 012721 000024 MOV @20.,(R1)+ ;sLENGTH OF MESSAGE BUFFER 
1860 041312 005021 CLR CR1)> 
1861 041314 012711 000000 MOV #0,(R1) ;SELECT ORIVE ZERO 
1862 041320 012702 000030 MOV 924. ,R2 s;NUMBER OF LOCATIONS TO BE CLEARED 
1863 041324 012762 177777 036522 64%: MOV 0177777, T3OBFR(R2) ;ALL ONES TO MESSAGE BUFFER 
1864 041332 005742 TST -(R2) ;NEXT LOCATION 
1865 041334 022702 000000 CMP #0. ,R2 ;CHECK Re FOR DONE 
1866 041340 001371 BNE 64$ ;KEEP GOING UNTIL DONE 
poet 041342 000207 RTS PC ;RE TURN 
1869 041344 T3ORT2: 
1870 041344 SAVREG ;SAVE THE REGISTERS 
1871 041350 012701 036610 MOV @T30PK2,R1 ;START OF THE PACKET 
1872 041354 012721 100006 MOV #100006 ,(R1)-+ ;WRITE SUBSYSTEM MEM, WITH ACK, 
1873 041360 012721 036630 MOV @T3O0BF2,(R1)>+ ;ADDRESS OF DATA BLOCK 
1874 041364 005021 CLR CR1)+ ; EXTENDED ADDRESS 
1875 041366 012721 000006 MOV 06.,(R1)->+ ;SIZE OF DATA BLOCK IN BYTES 
1876 041372 005021 CLR CR1)>+ 
1877 041374 012701 036630 MOV @T3OBF2,.R1 ;POINT TO DATA SEL AREA 
1878 041400 005021 CLR CR1)+ 
1879 041402 005011 CLR C(R1) 
1880 041404 000207 RTS PC ;RETURN 
1881 041406 T3ORTS: 
1882 041406 SAVREG ;SAVE REGISTERS 
1883 041412 012701 036620 MOV @T3OPK3,R1 ;SET UP POINTER ADDRESS 
1884 041416 005021 CLR C(R1)+ ;COMMAND SPACE 
1885 041420 005021 CLR (R1)>+ ;ADDRESS OF DATA BLOCK 
1886 041422 005021 CLR C(R1)>+ ;EXTENDED ADDRESS 
1887 041424 005011 CLR CR1) ;SIZE OF DATA TRANSFER BLOCK 
1888 041426 000207 RTS PC ;RETURN 
1889 041430 ENDTST 


041430 L10043: 
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TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 ‘“SEQ 130 


TEST 2: SKIP TAPE M 
0414350 104401 


TRAP CSsETST 


rosy .SBTTL TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 
1891 ;¢ 
1892 : 
1893 ;THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE”) AND INITIALIZE 
1894 ;COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 
1895 ; 
1896 ; 
1897 ;THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 
1898 : 
1899 : 
1900 ; 
1901 3° 
1902 041432 BGNTST 
041432 T3:: 
1903 041432 012737 006354 002172 MOV GEPRT1,EPRTSW sPRIMARY ERROR MESSAGE 
1908 041440 012700 046545 MOV @TS731ID,RO sASCII MESSAGE TO IDENTIFY TEST 
1909 041444 004737 016570 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
1910 041450 012737 000005 002210 MOV #5 ,LOOPCNT ;PERFORM S ITERATIONS 
Seas 041456 005037 043336 CLR TS1CNT ;CLEAR TAPE RECORD COUNTER 
191 ; 
1913 3° 
1914 
1915 041462 T31LO0P: 
1916 3° 
1917 ; 
fece ;TEST 3, SUBTEST 1 
3 
1920 3 VERIFIES THAT THE NO-OP COMMAND (CORRESPONDS TO THE CLEAN TAPE 
192i 3 COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER 
1922 ; STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND). AND 
1923 ; INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST REWOUND AND 
1924 ; WRITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN 
1925 3 AND THE NO-OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE 
1926 ; IS STILL AT BOT AND THAT PRCPER STATUS IS STORED. THE FIRST 
1927 3 RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION AND 
1928 ; VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND IS 
tone ; ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 
; 
1931 ; 
1932 3 
1933 3 
1934 ; 
1935 3 
1936 g- 
1937 041462 BGNSUB ;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
041462 T3.1: 
041462 104402 TRAP Cs8SU8 
1938 041464 004737 046610 JSR PC, TSLREST ;SET COMMAND PACKET 
1939 041470 004737 046702 JSR PC,TSIRT2 ;SET UP OTHER COMMAND PACKET 
1940 041474 004737 04674 JSR PC, TSIRTS ;SET UP OTHER COMMAND PACKET 
1941 041500 012737 176750 043342 MOV #65000. . T3S10LY ;SET UWP DELAY COUNTER 
1942 041506 004737 016054 10$: JSR PC ,.SOF INIT ;00 INITIALIZE ON CONTROLLER 
1943 041512 103426 BcS 20% ;8R If INIT WAS OK 
1944 041514 DELAY 250 ;DELAY ABOUT .25 SEC KK 
041514 012727 000250 MOV €250,(CPC)- 
041520 000000 . WORD 0 


’ 
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TEST 1 - HAROWARE TEST 1-8 TEST MACRO M1115 06-FEB-84 18:04 SEQ 151 
TEST 38: NO-OP ("CLEAN TAPE”) AND INITIALIZE 

041522 013727 002116 MOV LSOLY,(PC)- 
041526 000000 . WORD 0 
041530 005367 177772 DEC -6(PC) 
041534 0013575 BNE .-4 
041536 005367 177756 DEC -22(PC ) 
041542 001567 BNE .-20 

1945 041544 005337 043342 DEC TS10LY ;BUMP COUNTER 

1946 041550 001356 BNE 108 ;8R, IF COUNTER NOT DONE 

1947 041552 005237 002214 INC FATFLG sERROR COUNT 

1951 041556 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

1952 041560 ERROF ERRNO, SF IERR, SF IMSG FATAL ERROR TSSR WAS NOT OK 
041560 104455 TRAP C SEROF 
041562 000455 . WORD 301 
041564 005646 . WORD SF IERR 
041566 012114 . WORD SF IMSG 

1953 041570 013737 002174 043210 208: MOV UNITN, T310SW 3;SET UP UNIT NUMBER IN PACKET 

1954 041576 012704 043170 MOV OTSLIPACKET ,R4 s;SUBROUTINE NEEDS PACKET ADDRESS 

1955 041602 004737 010742 JSR PC ,WRICHR s ISSUE WRITE CHARACTERISTICS 

1956 041606 103407 BCS 23% ;8R, IF COMMAND ISSUED OK 

1957 041610 005237 002214 INC doy sERROR COUNT 

1961 041614 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

1962 041616 ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
041616 104456 TRAP CSERHRD 
041620 000456 . WORD 302 
041622 005052 . WORD WRTMSG 
041624 012114 . WORD SF IMSG 

1963 041626 238: CKLOOP sLO0P IF SELECTED 
041626 104406 TRAP CSCLP1 

1964 041630 004737 011074 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

1965 041634 103407 BCS 30% ;6R, IF NO PROBLEM 

1966 041636 010004 MOV RO,R4 sSET UP REWIND PACKET ADDRESS 

1967 041640 005237 002214 INC FATF LG sERROR COUNT 

1971 041644 ERRHRD ERRNO, T31RWN,PKTSSR sREWIND NOT ACCEPTED 
041644 104456 TRAP C SERHRD 
041646 000457 . WORD 3035 
041650 044674 . WORD T31RWN 
041652 012126 . WORD PKTSSR 

1972 041654 308: CKLOOP sLOOP IF SELECTED 
041654 104406 TRAP CSCLPL 

1973 041656 013701 043220 MOV T31BFR-6,R1 sPICK UP XxSTO 

1974 041662 010102 MOV R1,Re2 ;SET UWP EXPECTED 

1975 041664 052702 000002 BIS OBIT1,Re sSET BOT BIT IN EXPECTED 

1976 041670 020102 CMP R1,R2 s;D0ES ExP = REC'D 

1977 041672 001406 BEQ 40% ;B8R, IF EQUAL (OK) 

1978 041674 005237 002214 INC FATFLG sERROR COUNT 

1982 041700 ERRHRD ERRNO, TSIBOT,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
041700 104456 TRAP CSERHRD 
041702 000460 . WORD 304 
041704 044345 .wORD T3180T 
041706 015554 . WORD EXPREC 

1983 041710 40%: CKkt_OOP sLOOP IF SELECTED 
041710 104406 TRAP CSCLPl 

1984 041712 013737 003116 043312 MOV FREE, T351wW6 s;STARTING WRITE BUFFER ADDRESS 

1985S 041720 012737 140005 043310 65%: MOV #140005, T31PK5 sWRITE DATA,CvC*1,ACK COMMAND 

1986 041726 012704 043310 MOV OT3Si1PKS,R4 ;SET UP R4 WITH PACKET ADDRESS 

1987 041732 012700 000144 MOV #100. ,RO ;SET PATTERN IN CORRECT REGISTER 


1988 041736 004737 017502 JSR PC,FILLMEM sFILL MEMORY WITH RECORD SIZE 


fea} 's 


2037 


Cil 


: ROTBB*CECLERN taBe !SSANB “EAR THALEe CC -FEB-84 18:08 


041742 
041750 


012737 
010465 


043545 
012126 


104406 
613701 


000144 
000000 
0163550 
000002 
000200 


002214 


011074 


002214 


04101e 
043310 
0435316 
000000 
016350 
000002 


000200 


002214 


043220 


043316 


80$: 


23038; 


2408: 


043310 2658: 


2803: 


CKL_OOP 
MOV 


4g PERE Ss 


TSSRCRS),R1Y 

@SSR ,R2 

R1,R2 

80% 

FATFLG 

ERRNO, T51WOC ,PKTSSR 


PC ,REWIND 
230% 
RO,R1 


FATFLG 
ERRNO, T21RWN,EXPREC 


R1,R2 
se ae 


FATFLG 
ERRNU, T31B0T ,EXPREC 


0041012, T351PK5 
OTS1PK3,R4 
R3,131S2Z 

R4, TSOBCRS ) 

PC ,WAITF 
TSSRCRS),R1 
OSSR,R2 


SEQ 152 


sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


;6R, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
. WORD 305 
. WORD T31WOC 
WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CSCLPi 


sCALL TAPE REWIND COMMAND 
;8R, IF NO PROBLEM 
;SAVE TSSR 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP — 


. WORD 06 
. WORD T31RWN 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xSTO 
;SET UP EXPECTED 
3;SET BOT BIT IN EXPECTED 
s00ES EXP = REC'D 
;8R, IF EQUAL (OK) 
s;ERROR COUNT 
;TAPE NOT AI ROT AFTER REWIND 
TRAP CSERHRD 
. WORD 307 
. WORD T3180T 
. WORD EXPREC 
;LO0P IF SELECTED 
TRAP CSCLPl 


:;NO-OP ,CVC*=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
:;SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
3;SET UP EXPECTED 
s;ARE THEY EQUAL 
;8R, IF OK 
sERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP = 


. WORD 308 

. WORD T31LROF 

-WORD PKTSSR 
3LO00P IF SELECTED 

TRAP CSCLPl 


sPICK UP xSTO 


Dil 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1115 
TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 


06-FEB-84 18:04 SEQ 155 


2038 042160 010102 MOV R1,R2 sSET UP EXPECTED. 

2039 042162 052702 000002 BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 

204 042166 020102 CMP R1,R2 ;00 S EXP «= REC'D 

2041 042170 001406 BEQ 2853 ;BR, IF EQUAL (OK) 

2042 042172 005237 002214 INC FATFLG sERROR COUNT 

2046 042176 ERRHRD ERRNO, T31B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
042176 104456 TRAP CSERHRD 
042200 000465 . WORD 309 
042202 044345 . WORD T31B60T 
042204 015554 WORD EXPREC 

2047 042206 2853: CKLOOP ;LOOP IF SELECTED 
042206 104406 TRAP CsCLPl1 

2038 042210 012737 140001 043510 MOV 140001, T31PK3 sREAD,ACK,CVC=1 COMMAND 

2049 042216 012704 045310 MOV @TSIPK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

2050 042222 012737 000144 043516 MOV #100. ,1731S2Z sSET UP RECORD SIZE IN PACKET 

2051 042230 010465 MOV R4, TSOBCRS) sISSUE COMMAND 

2052 042234 004737 016550 JSR PC ,WAITF sWAIT FOR SSR TO SET 

2053 042240 016501 000002 MOV TSSRCRS),R1 ;sGET TSSR CONTENTS 

2054 042244 012702 000200 MOV @SSR ,,R2 ;SET UP EXPECTED 

2055 042250 020102 CMP R1,R2 ;ARE THEY EQUAL 

2056 042252 001406 BEQ 290% ;BR, IF OK 

2057 042254 0052357 002214 INC FATFLG sERROR COUNT 

2061 042260 ERRHRD ERRNO, TSIRDE,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
042260 104456 TRAP CSERHRD 
042262 000466 . WORD 310 
042264 043344 . WORD T3LRDE 
042266 012126 WORD PKTSSR 

2062 042270 2908: CKLOOP ;LO0P IF SELECTED 
042270 104406 TRAP CSCLPl 

2063 042272 017701 140620 MOV SF REE .R1 ;GET DATA READ 

2064 042276 012702 000144 MUV #100. ,R2 ;sREAD EXPECTED 

2065 042302 020102 CMP R1,R2 ;DID TAPE STAY POSITIONED 
042304 001406 BEQ 3308 ;8R, IF EXPD = RECD 

2067 042306 005237 002214 INC FATFLG sERROR COUNT 

2071 042312 ERRHRD ERRNO, T31WNG,EXPREC ;TAPE DATA NOT CORRECT 
042312 104456 TRAP CSERHRD 
042314 000467 . WORD 311 
042316 043471 . WORD T31WNG 
042320 015554 .WORD EXPREC 

2072 042322 3308: 

2073 042322 ENOSUS 3 >>>>>>>>>>2>> END SUBTEST >>>>>>>>>>>> 
042322 L10051: 
042522 104403 TRAP CsESUB 

2074 042324 023727 002214 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 25 

2075 042332 103402 BLO 999% ;BR, IF LESS THAN 25 

2076 042334 004737 017262 JSR PC ,CKDROP ;TRY TO OROP THE UNIT 

2077 042340 9995: 

2078 3° 

2079 : 

2080 ;TEST 3, SUBTEST 2 

2081 ; 

2082 ; 

2083 : VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 

2084 ; ASSUMING NO MICRODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD 

2085 ; ALREADY HAVE BEEN DETECTED IN PREVIOUS TESTS). THE TEST 

2086 ; SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 

é 


Ell 


TEST 12 - HARDWARE TEST 1-8 TEST MACRO M1113 0O6-FEB-84 18:04 SEQ 1534 
TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 
a 

2089 ; 

2090 + 

2091 042340 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>>> 
042340 T3.2: 
042340 104402 TRAP Cs$6SUB 

2092 042342 0047357 046610 JSR PC, T3SLREST 3SET COMMAND PACKET 

2093 042346 004737 046702 JSR PC, T3SiIRT2 ;SET UP OTHER COMMAND PACKET 

2094 042352 004737 046744 JSR PC, TSiIRTS ;SET UP OTHER COMMAND PACKET 

2095 042356 004737 016054 JSR PC ,SOF INIT 300 INITIALIZE ON CONTROLLER 

2096 042362 103407 BCS 20% ;B8R IF INIT WAS OK 

2097 042364 005237 002214 INC FATFLG sERROR COUNT 

2101 042370 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

2102 042372 ERROF ERRNO, SF IERR, SF IMSG ;FATAL ERROR TSSR WAS NOT OK 
042372 104455 TRAP CSERDF 
042374 000470 . WORD 312 
042376 003646 . WORD SF IERR 
042400 012114 . WORD SF IMSG 

2103 042402 013737 002174 043210 20%: MOV UNITN, T310SW ;SET UP UNIT NUMBER IN PACKET 

2104 042410 012704 043170 MOV @TSLPACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 

2105 042414 004737 010742 JSR PC ,.WRICHR ; ISSUE WRITE CHARACTERISTICS 

2106 042420 103407 BCS 23% ;BR, IF COMMAND ISSUED OK 

2107 042422 005237 002214 INC FATFLG ;ERROR COUNT 

2111 042426 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

2112 042430 ERRHRD ERRNO,WRITMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
042430 104456 TRAP CSERHRD 
042432 000471 . WORD 313 
042434 005052 . WORD WRTMSG 
042436 012114 . WORD SF IMSG 

2113 042440 233s: CKLOOP ;LO00P IF SELECTED 
042440 104406 TRAP CSCLP1 

2114 042442 004737 011074 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

2115 042446 103407 BCS 30% ;B8R, IF NO PROBLEM 

2116 042450 010004 MOV RO ,R4 ;SET UP REWIND PACKET ADDRESS 

2117 042452 005237 002214 INC FATFLG ;ERROR COUNT 

2121 042456 ERRHRD ERRNO, T351RWN,PKTSSR ;REWIND NOT ACCEPTED 
042456 104456 TRAP CSERHRD 
042460 000472 . WORD 314 
042462 044674 . WORD T31RWN 
042464 012126 . WORD PKTSSR 

2122 042466 308: CKLOOP ;LOOP IF SELECTED 
042466 104406 TRAP CSCLPl 

21235 042470 013701 043220 MOV T31BFR+6,R1 ;PICK UP XSTO 

2124 042474 010102 MOV »R ;SET UP EXPECTED 

2125 042476 052702 000002 BIS OBIT1,Re2 ;SET BOT BIT IN EXPECTED 

2126 042502 020102 CMP R1,R2 ;D0ES EXP = REC'D 

2127 042504 001406 BEG 40$ ;BR, IF EQUAL (OK) 

2128 042506 005237 002214 INC FATFLG s;ERROR COUNT 

2132 042512 ERRHRD ERRNO, T31B80T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
042512 104456 TRAP CSERHRD 
042514 000473 . WORD 315 
042516 044345 . WORD T31LB0T 
042520 015554 . WORD EXPREC 

2133 042522 40$: CKLOOP ;LO0OP IF SELECTED 
042522 104406 TRAP CSCLPl 

2134 042524 013737 003116 043312 MOV FREE ,T31WB ;STARTING WRITE BUFFER ADDRESS 

2135 042532 012737 140005 043310 65%: MOV #140005, T31PK2 ;sWRITE DATA,CVC«1,ACK COMMAND 


Fil 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 SEQ 135 
TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 

2136 042540 012704 045310 MOV OT3S1PK35,R4 ;sSET UP R4 WITH PACKET ADDRESS 

2137 042544 012700 000144 MOV #100. ,RO sSET PATTERN IN CORRECT REGISTER 

2138 042550 004737 01750 JSR PC ,FILLMEM sFILL MEMORY WITH RECORD SIZE 

2139 042554 012737 000144 0435316 MOV #100. ,731SZ sSET UP RECORD SIZE IN PACKET 

2140 042562 010465 MOV R4,TSOBCRS) s ISSUE COMMAND 

2141 042566 004737 016550 JSR PC ,WAITF sWAIT FOR SSR TO SET 

2142 042572 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

2143 042576 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 

2144 042602 020102 CMP R1,Re2 sARE THEY EQUAL 

2145 042604 001406 BEQ 80$ ;BR, IF OK 

2146 042606 005257 002214 INC FATFLG sERROR COUNT 

2150 042612 ERRHRD ERRNO, T31WOC,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
042612 104456 TRAP CSERHRD 
042614 000474 -WORD 316 
042616 045250 -WORD 1T31WDC 
042620 012126 -WORD PKTSSR 

2151 042622 60$: CKLOOP ;LOOP IF SELECTED 
042622 104406 TRAP CSCLP1 

2152 042624 004737 011074 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

2153 042630 103407 BCS 230$ ;BR, IF NO PROBLEM 

2154 042632 010001 MOV RO,R1 ;SAVE TSSR 

2155 042634 0052357 002214 INC FATFLG sERROR COUNT 

2159 042640 ERRHRD ERRNO, TS1RWN,EXPREC sREWIND NOT ACCEPTED 
042640 104456 TRAP CSERHRD 
042642 000475 -WORD 317 
042644 044674 -WORD T31RWN 
042646 015554 -WORD EXPREC 

2160 042650 230%: CKLOOP ;LOOP IF SELECTED 
042650 104406 RAP CsCLP1 

2161 042652 013701 043220 MOV T31BFR+6,R1 sPICK UP XSTO 

2162 042656 010102 MOV R1,Re2 ;SET UP EXPECTED 

2165 042660 052702 000002 BIS O61IT1,R2 ;SET BOT BIT IN EXPECTED 

2164 042664 020102 CMP R1,R2 ;D0ES EXP = REC'D 

2165 042666 001406 BEQ 240% ;BR, IF EQUAL (OK) 

2166 042670 005237 002214 INC FATFLG ;ERROR COUNT 

2170 042674 ERRHRD ERRNO, T31B0T,EXPREC ;fAPE NOT AT BOT AFTER REWIND 
042674 104456 TRAP CSERHRD 
042676 000476 -WORD 318 
042700 044345 -WORD £T31B0T 
042702 015554 -WORD EXPREC 

2171 042704 2408: CKLOOP ;LOOP IF SELECTED 
042704 104406 TRAP CsC.Pi 

2172 042706 012737 041012 043310 265%: MOV #041012, T31PK5 ; INITIALIZE ,CvC=1 COMMAND 

21735 042714 012704 043310 MOV OTS1PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

2174 042720 010337 043316 MOV R3,17351S2 ;SET UP RECORD SIZE IN PACKET 

2175 042724 010465 000000 MOV R4,TSOBCRS) ; ISSUE COMMAND 

2176 042730 004737 016330 JSR PC ,WAITF ;sWALT FOR SSR TO SET 

2177 042734 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

2178 042740 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 

2179 042744 020102 CMP R1,R2 ;ARE THEY EQUAL 

2180 042746 001406 BEQ 280% ;BR, IF OK 

2181 042750 005237 002214 INC FATFLG sERROR COUNT 

2185 042754 ERRHRD ERRNO, TS1LRDF ,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
042754 104156 TRAP CSERHRD 
042756 000477 .WORDB 319 
042760 043543 -WORD T31RDF 
042762 012126 .WORD PKTSSR 


1_ - HARDWARE TEST 
3: NO-OP ("CL 


EAN 


043220 
000002 


002214 


140006 
000144 


002214 


002214 
017262 


016536 
041462 


043310 
043316 


000017 


2803: 


2853: 


2908: 


3308: 


1638: 


CK OOP 


Gili 


Hibe!SShad"PRD TAH O6-FEB-04 18:08 


FLG 
ERRNO, T31B80T ,EXPREC 


#140001, T351PKS 
@T3LPKS,R4 
#100. ,1351SZ 
R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 


LG 
ERRNO, T3S1RDE ,PKTSSR 


@F REE ,R1 

#100. ,Re 

R1,R2 

330% 

FATFLG 

ERRNO, TS1WNH,EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


PC, TSTLOOP 
163% 
T31t.00P 
TST 


SEQ 136 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
;ERROR COUNT 
:TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 320 
. WORD T3180T 
. WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLPl 
;sREAD,ACK,CVC*1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
;ERROR COUNT 
:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 321 
. WORD T3LRDE 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPl 
;GET DATA READ 
;READ EXPECTED 
;DID TAPE STAY POSITIONED 
;B8R, IF EXPD = RECO 
;ERROR COUNT 
; TAPE POSITION NOT CORRECT AFTER INIT 
TRAP CSERHRD 
. WORD 322 
. WORD TS1WNH 
. WORD E XPREC 
3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L1005e2: 
TRAP CsESU8 


;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


;00 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
;EXECUTE AGAIN 

;ALL DONE THIS TEST 


E 
E 


S 
S 


gg XX. 
T 8: 


ARDWARE T 
‘OP ("CL 


4 
NO - OP 


043164 
043166 


104432 
003600 


102205 
177777 


3° 
;LOCAL STORAGE FOR THIS 


a. 
TSLPACKET: 
. WORD 100004 
. WORD TS1DATA 
. WORD 0 
. WORD 10. 
T31DATA: 
. WORD T316FR 
. WORD 0 
. WORD 20. 
. WORD 0 
T310SW: .WORD 0 
TSIBFR: .BLKW 25. 
: 
;WRITE SUBSYSTEM MEMORY 
3 
.*¢<,+°10>€177770 
T31PKe: 
. WORD 100006 
. WORD T316F 2 
. WORD 0 
. WORD 6. 
T31PK3: 
. WORD 100005 
T3iRB: 
T3i1WB: .WORD FREE 
. WORD @) 
T31SZ: .WORD 0 
.EVEN 
; 
; 
; 
T316F 2: 
T318S0: .BYTE 10 
T318S1: .BYTE 200 
T31S2: .WORD 0 
T31S3: .WORD 0 


EVEN 
; TAPE MOTION PACKET COMMAND VALUES 


TSiRN: 


T31WOR: 
T31CON: 


s 

T3SICNT: 
T3iCNU: 
TS10L1r: 


ER Habe SRST TA He Of FEB 4 18:00 


100205 
100605 
1022C% 
177777 


ooo 


Hil 


TEST 


COMMAND PACKET 


SEQ 157 


TRAP CSExIt 
.WORD 1L10050-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
;LENGTH OF MESSAGE BUFFER 


;SELECT ORIVE O 
sMESSAGE BUFFER 


;sWRITE SUB SYS MEM COMMAND, 
;ADDRESS OF SELECT BLOCK DATA 


;SIZE OF DATA PACKET 


AND ACK 


;REREAD COMMAND, AND ACK 
;ADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER CEXTENT) 


;BSELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 
;DATA AREA 


;sREREAD DATA (NEXT) 
sREREAD DATA RETRY 
;sWRITE CONTINOUS 
sEND OF DATA 


;TAPE TIMER COUNTER STORAGE AREA 
;TAPE TIMER COUNTER STORAGE AREA 
;DELAY COUNTER 


TEST 1 
TEST 8: 


. ae ce TEST 
NO-OP ("CLEAN 
043344 124 
043410 124 
043471 124 
043545 124 
043612 l2e 
043707 120 
043771 122 
044041 124 
044116 111 
044177 122 
044233 124 
044345 124 
044440 116 
044540 122 
044617 124 
044674 l22 
044743 l2e 
045016 124 
045065 104 
045140 124 
045230 124 
045305 103 
045356 124 
045431 127 
045520 l22 
045602 122 
045664 122 
045752 l2e2 
046040 116 
046161 124 
046236 124 
046345 124 
046446 104 
0465453 116 
046610 
046610 
046614 012701 
046620 012721 
046624 012721 
046630 005021 
046632 012721 
046636 012721 
046642 005021 
046644 012721 
046650 005021 
046652 012711 


043170 


060012 
043212 


000024 
000000 


AND INITIALIZE 
sLOCAL TEXT MESSAGES FOR TEST 


5° 
T31ROE : 


3° 


yw MACRO M1115 06-FEB-84 18:04 


-ASCIZ 


Til 


SEQ 156 





‘TSSR Not Correct After READ Command’ 

‘Tape Position Incorrect After INITIALIZE Command’ 

‘Tape Position Incorrect After NOP Command’ 

‘TSSR Incorrect After READ DATA Command’ 

‘REREAD Previous (Spece Reverse, Read Forward) Command Fai led’ 
‘POSITION (Spece Command) Failed, TSSR Not Correct’ 

‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

‘TSSR Not Correct After Illegal Mode Bits Set’ 

‘Tll l Mode Bits, Faeiled To Set ILC Bit In XSTO’ 

‘RERE COMMAND Not Accepted’ 

‘TSSR Not Correct After NO-OP ("CLEAN TAPE”) AND INITIALIZE Command,At BOT’ 
‘Tape Not At BOT After REWIND Command (BOT Not Set In xSTO)’ 

‘NO-OP ("CLEAN TAPE”) AND INITIALIZE’‘S Erase Tape Not Long Enough’ 
‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 

‘TSSR Not Correct After REREAD COMMAND Re ject’ 

‘Rewind (POSITION) Command Not Accepted’ 

‘RAM Error, Correct Date Pattern Not In Ram’ 

‘TSSR Init. Failed After REREAD COMMAND’ 

‘Drive 7 Select Failed To Set "OFL” In TSSR’ 

‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 

‘TSSR Not Correct After REREAD DATA Command’ 

‘CvC Set, Didn''t Reset VCK In Mess Buffer’ 

‘TSBA Not Correct After REREAD DATA Command’ 

‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 

‘Reading Long Record Failed To Set RiL Bit In XSTO’ 

‘Reading Long Record Failed To Set RLS Bit In XSTO’ 

‘Resi duel By Count Incorrect After Short Record Read’ 

‘Readi Record Failed To Give Tape Status Alert’ 

‘NO -OP “CLE TAPE”) AND INITIALIZE, At First Record, Failed To Set RIB Bit 
‘TSSR Not Correct After SPACE RECORDS Command’ 

‘TSSR Not Correct After NO-OP ("CLEAN TAPE”) AND INITIALIZE. Into BOT’ 
‘TSSR Not Correct After NO-OP ("CLEAN TAPE”) AND INITIALIZE Command’ 
‘Dete Compere Error, Data Read From Tape Not Equal To Written’ 
-ASCIZ ‘NO-OP ("Clean Tape”) And INITIALIZE’ 


5 
;sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 


T3LREST: 


;SAVE THE REGISTERS 


OTSLPACKET,R1 sSTART OF THE PACKET 
#100004 ,(R1)-> ;WRITE SUBSYSTEM MEM. WITH ACK, 
@T3SIDATA,(R1)-> sADDRESS OF CHARAISTICS DATA BLOCK 
CR1L)> ;sEXTENDED ADDRESS 
#10. ,(R1)>+ ;SIZE OF DATA BLOCK IN BYTES 
<n sADDRESS OF MESSAGE BUFFER 

l)e 
> +1 malate ;LENGTH OF MESSAGE BUFFER 

L)e 
#0,(R1) ;SELECT DRIVE ZERO 


TEST 1 - MAROWARE TEST 1-8 TEST MACRO M1115 O06-FEB-84 18:04 
TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 


SEQ@ 139 


2355 046656 012702 000030 MOV 024. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
2356 046662 012762 177777 043212 64%: MOV 0177777, T31BFR(R2) ;ALL ONES TO MESSAGE BUFFER 
2357 046670 005742 TST -(R2) sNEXT LOCATION 
2358 046672 022702 000000 CMP #0 ,R2 ;AT END OF LOOP YET 
2359 046676 001371 BNE 64$ ;KEEP GOING UNTIL DONE 
2360 046700 000207 RTS PC ;RE TURN 
2362 046702 T3IRT2: 
2363 046702 SAVREG ;SAVE THE REGISTERS 
2364 046706 012701 043300 MOV @T31PK2,R1 ;START OF THE PACKET 
2365 046712 012721 MOV @100006,(R1)> ;WRITE SUBSYSTEM MEM. WITH ACK, 
2366 046716 012721 043320 MOV OT31BF2,(R1)> sADDRESS OF DATA _fL ox 
2367 046722 005021 CLR (R1)}> EXTENDED ADDRES 
2368 046724 012721 000006 MOV 06.,(R1)> ;SIZE OF DATA BLOCK IN BYTES 
2369 046730 005021 CLR (R1)- 
2370 046732 012701 043320 MOV @T318F2,R1 sPOINT TO DATA SEL AREA 
2371 046736 005021 CLR (R1)> 
2372 046740 005011 CLR (RL) 
2373 046742 000207 RTS PC ;RE TURN 
2374 046744 T31RT3: 
2375 046744 SAVREG > sSAVE REGISTERS 
2376 046750 012701 043310 MOV @T31PK3,R1 ;SET UP POINTER ADDRESS 
2377 046754 005021 CLR (R1)> ;COMMAND SPACE 
2378 046756 005021 CLR (R1)- sADDRESS OF DATA BLOCK 
2379 046760 005021 CLR (R1)> ;EXTENDED ADDRESS 
2380 046762 005011 CLR (R1) sSIZE OF DATA TRANSFER BLOCK 
2381 046764 000207 RTS PC ;RE TURN 
2382 046766 ENDTST 
046766 L10050: 
046766 104401 TRAP CSETST 
2383 SBTTL TEST 4: Erase And Operation Incomplete 
2384 56 
2385 ; 
2386 : VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
2387 ; POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
2308 ; THE FOLLOWING TEST SEQUENCE IS PERFORMED: 
2390 ; 
2391 ; THE TAPE IS FIRST REWOUND, SEVERAL rest RECORDS ARE 
coe ; WRITTEN, AND THE TAPE IS REWOUND AGAIN 
3 
2394 ; AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
2395 ; OF THE TEST RECORDS. 
5 
2397 ; NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 
tae, ; (BOT SHOULD BE 0). 
é 
2400 ; 4. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
2401 ; THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE 
2402 ; REVERSE INTO BOT (RIB) STATUS BIT IS SET. AND THAT NO 
2403 ; DATA IS TRANSFERRED. THIS DEMONSTRATES THAT NO DATA 
2404 : WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE 
2405 ; COMMAND . 
2406 3 
2407 ; 
2408 ; 


Kit 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 
TEST 4: ERASE AND OPERATION INCOMPLETE 


SEQ 140 


2410 ; 

2411 : 

2412 : 

tH ;THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 

414 ; 

2415 ; 

2416 : 

2417 3- 

2418 046770 BGNTST 
046770 T4: 

2419 046770 012737 006354 002172 MOV #EPRT1,EPRTSW ;PRIMARY ERROR MESSAGE 

2424 046776 012700 052640 MOV @TST3S2ID,RO ;ASCII MESSAGE TO IDENTIFY TEST 

2425 047002 004737 016570 JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 

2426 047006 012737 000005 002210 MOV #5 ,LOOPCNT ;sPERFORM 5S ITERATIONS 

eee 047014 005037 051510 CLR T32CNT ;CLEAR TAPE RECORD COUNTER 

4 3° 

2429 ; 

2430 ;TEST 4, SUBTEST 1 

2431 : 

2432 ; 

2433 ; VERIFIES THAT A Erase And Operation Incomplete COMMAND ISSUED WHILE 

2434 ;THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 

2435 ; TERMINATION, WITH Ti¥E NON-EXECUTABLE FUNCTION CNEF ) 

2436 ;ERROR BIT SET. 

2437 ; 

2438 ; 

2439 3- 

2440 

2441 047020 T32L00P 

2442 : 

2443 : 

2444 3- 

2445 047020 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
04702C T4.1: 
047020 104402 TRAP CsBSUB 

2446 047022 004737 052700 JSR PC, T32REST ;SET COMMAND PACKET 

2447 047026 004737 052772 JSR PC,T32RT2 ;SET UP OTHER COMMAND PACKET 

2448 047032 004737 053022 JSR PC, T32RTS ;SET UP OTHER COMMAND PACKET 

2449 047036 012737 176750 051514 MOV #65000. , TS2DL Y ;SET UP DELAY COUNTER 

2450 047044 004737 016054 10$: JSR PC ,SOF INIT ;00 INITIALIZE ON CONTROLLER 

2451 047050 103426 BCS 20$ ;8R IF INIT WAS OK 

2452 047052 DELAY 250 ;DELAY ABOUT .25 SEC 
047052 012727 000250 MOV #250,(PC)> 
047056 0600000 -WORDB O 
047060 013727 002116 MOV LSOLY,(PC)- 
047064 000000 . WORD 0 
047066 005367 177772 DEC “ore 2 
047072 001375 BNE 
047074 005367 177756 DEC 230°C) 
047100 001367 BNE -20 

2453 047102 005337 051514 DEC T32DLY ;BUMP COUNTER 

2454 047106 001356 BNE O$ ;BR, IF COUNTER NOT DONE 

2455 047110 005237 002214 INC FATFLG ERROR COUNT 

2459 047114 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

2460 047116 ERRDF ERRNO, SFIERR,SFIMSG ;sFATAL ERROR TSSR WAS NOT OK 
047116 104455 TRAP CSERDF 
047120 000621 . WORD 401 


Lil 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 SEQ 141 


TEST 4: ERASE AND OPERATION INCOMPLETE 


047122 003646 .WORD SFIERR 
047124 012114 .WORD  SFIMSG 

2461 047126 013737 002174 051350 20%: MOV UNITN, T32DSW :SET UP DRIVE NUMBER 

2462 047134 012704 051330 MOV @T32PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

2463 047140 004737 010742 JSR PC, WRTCHR ;ISSUE WRITE CHARACTERISTICS 

2464 047144 103407 BCS 25% ;BR, IF COMMAND ISSUED OK 

2465 047146 005237 002214 INC FATFLG sERROR COUNT 

2469 047152 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

2470 047154 ERRHRD ERRNO,WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
047154 104456 | TRAP § CSERHRD 
047156 000622 . .WORD 402 
047160 005052 : .WORD WRTMSG 

_ 047162 012114 .WORD SFIMSG 

2471 047164 25$:  CKLOOP ;LOOP IF SELECTED 
047164 104406 TRAP =s- CSCLP1 

2472 047166 004737 011074 JSR PC, REWIND ;CALL TAPE REWIND COMMAND 

2473 047172 103411 BCS 26$ ;BR. IF NO PROBLEM 

2474 047174 010004 MOV RO.R ;SET UP REWIND PACKET ADDRESS 

2475 047176 016501 000002 MOV TSSRCRS), R1 ;GET SSR CONTENTS 

2476 047202 005237 002214 INC FATFL RROR COUNT 

2480 047206 ERRHRD ERRNO. T32RWN,PKTSSR |REWIND NOT ACCEPTED 
047206 104456 TRAP §CSERHRD 
047210 23 .WORD 403 
047212 051700 “WORD T32RWN 
047214 012126 “WORD PKTSSR 

2481 047216 26$:  CKLOOP ;LOOP IF SELECTED 
047216 104406 TRAP = C$CLP1 

2482 047220 012703 0004 MOV 0256. .R3 ;STARTING RECORD SIZE 

2483 047224 013737 003116 051452 MOV FREE, T32WB ;STARTING WRITE BUFFER ADORESS 

2484 047232 012737 140005 051450 MOV #140005, T32PK3 ;WRITE DATA,CVC=1,ACK COMMAND 

2485 047240 012704 051450 MOV OT32PK3,R4 ;SET UP R4 WiTH PACKET ADDRESS 

2486 047244 010337 051456 27%: MOV R3,132SZ ;SET UP RECORD SIZE IN PACKET 

2487 047250 010465 MOV R4, TSOBCRS) ; ISSUE COMMAND 

2488 047254 004737 016330 JSR PC ,WAITF ;WAIT FOR SSR TO SET 

2489 047260 016501 000002 MOV TSSR(RS),.R1 ;GET TSSR CONTENTS 

2490 047264 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 

2491 047270 020102 CMP R1,R2 ;ARE THEY EQUAL 

2492 047272 001406 BEQ 28$ :BR, IF x. 

2493 047274 005237 002214 INC FATFLG RROR COUNT 

2497 047300 ERRHRD ERRNO, T32WOC,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
047300 104456 TRAP CSERHRD 
047302 000624 .WORD 404 
047304 052536 "WORD T32wWOC 
047306 012126 "WORD PKTSSR 

2498 047310 28$:  CKLOOP ;LOOP IF SELECTED 
047310 104406 RAP = C$CLP1 

2499 047312 005723 TST (R3)> ;BUMP RECORD COUNTER 

2500 047314 020327 001002 CMP RS.@514, ;AT MAX SIZE YET 

2501 047320 001351 BNE ' 3BR, IF NOT AT END OF LOOP 

2502 047322 004737 011074 JSR eC. ,REMIND ;CALL TAPE REWIND COMMAND 

2503 047326 103411 BCS 30 ;BR. IF NO PROBLEM 

2504 047330 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 

2505 047334 010004 MOV RO,R4 ;SET UP REWIND PACKET ADDRESS 

2506 047336 005237 002214 INC FATFLG ;ERROR COUNT 

2510 047342 ERRARD ERRNO, T32RWN,PKTSSR ;REWIND NOT ACCEPTED 
047342 104456 TRAP = CSERHRD 
047344 000625 .WORD 405 


ST i - See AKO ear ahi Fou TEST Rc HAGRO 1115 06 -FEB -84 


ST 4: 


051700 
012126 


051360 
000002 


002214 


140411 
051450 


000000 
0163530 
000002 
000200 


002214 


051360 
000002 


002214 


003116 
140401 
000400 
051450 
000000 
016530 
000002 


100204 


002214 


051450 


051452 
051450 
051456 


30$: 


40$: 


55$: 


Mil 


18:04 


LG 
ERRNO, TS2B0E ,EXPREC 


#140411, T32PKS 


TSSRCRS),R1 

@SSR ,R2 

R1,Re2 

50$ 

FATFLG 

ERRNO, TS2ERA,PKTSSR 


TS2BFR+6,R1 


FATFLG 
ERRNO, T32B0E ,EXPREC 


FREE, T352R6 
#140401, T3S2PK5 
@256.,T32SZ 
@T3S2PK3,R4 
R4,TSOBCRS) 
TSSRCRS),R1 
@SSR!ISC!BIT2,Re 
R1,R2 

180$ 

FATFLG 


SEQ@ 142 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


;sPICK UP xSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

;8R, IF EQUAL (OK) 


;ERROR COUNT 
;TAPE AT BOT AFTER ERASE 
TRAP 
. WORD 
. WORD 
. WORD 


;LOOP IF SELECTED 
TRAP 


;sERASE TAPE,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 


;B8R, IF OK 
;ER COUN 
;TSSR INCORRECT AFTER ERASE DATA 
TRAP 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


;PICK UP xSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

;BR, IF EQUAL (OK) 


;ERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 
;ADORESS OF BUFFER 
;READ REVERSE ,ACK,CVC=1 COMMAND 


;SET UP THE SIZE OF RECORD 
;SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 


T32RWN 
PKTSSR 


CSCLP1 


CSERHRD 
406 


T32B0E 
EXPREC 


CsCLP1 


CSERHRD 
407 

T32ERA 
PKTSSR 


CsCLP1 


CSERHRD 
408 

T32B0E 
EXPREC 


CsCLP1l 


;SET UP EXPECTED TAPE STATUS ALERT 


;ARE THEY EQUAL 
;BR, IF OK 
;ERROR COUNT 


Nil 


TEST 1 - HARDWARE TE TEST MACRO M1113 06-FEB-84 18:04 SEQ 143 
TEST 4: ERASE AND SB ERATTON ENCOMPL ore 
2562 047576 ERRHRD ERRNO, T32TSA,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
047576 104456 TRAP CSERHRD 
047600 000631 .WORD 409 
047602 052311 .WORD T32TSA 
047604 012126 .WORD PKTSSR 
2563 047606 180$: | CKLOOP ;LOOP IF SELECTED 
047606 104406 TRAP CS$CLP1 
2564 047610 013701 051366 MOV T32BFR+14,R1 ;GET xST3 STATUS WORD 
2565 047614 010102 MOV R1,R2 ;SET UP EXPECTED 
2566 047616 052702 000001 BIS @BITO,R2 :;SET THE RIB BIT 
2567 047622 020102 CMP R1,R2 ;ARE THEY EQUAL 
2568 047624 001406 BEQ 190$ ;BR, IF EQUAL (GOOD) 
2569 047626 005237 002214 INC FATFLG ;ERROR COUNT 
2573 047632 ERRHRD ERRNO, T32RIB,EXPREC ;RIB SHOULD BE SET 
047632 104456 TRAP CSERHRD 
047634 000632 .WORD 410 
047636 052136 .WORD T32RIB 
047640 015554 .WORD EXPREC 
2574 047642 190$: 
2575 047642 ENDSUS8S 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
047642 L10054: 
047642 104403 TRAP CsESuUB 
2576 047644 023727 002214 000017 CMP FATFLG, 415. ;IS ERROR COUNT AT 25 
2577 047652 103402 BLO 999$ ;BR, IF LESS THAN 25 
2578 047654 004737 017262 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
2579 047660 999$: 
2580 6 
2581 ; 
aoe ;TEST 4, SUBTEST 2 
’ 
2584 ; VERIFIES THAT AN ERASE COMMAND EXECUTED WHEN THE TAPE IS NOT 
2585 ; POSITIONED AT BOT OPERATES PROPERLY AND DOES NOT CORRUPT 
2306 ; PREVIOUS TAPE RECORDS. THE TEST SEQUENCE IS: 
. 
2588 ; 1. THE TAPE IS FIRST REWOUND, SEVERAL rest RECORDS ARE 
2589 : WRITTEN, AND THE TAPE IS REWOUND AGAIN 
2590 : 
2591 
2592 ; 2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
2593 ; TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL 
fae ; RECORDS. 
; 
2596 ; 3. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
oan ; OF THE TEST RECORDS. 
; 
2599 ; NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 
2601 ; 5. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
2602 ; NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA 
2603 : TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED 
2604 ; RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
2605 ; IN THE AREA ERASED BY THE ERASE COMMAND, AND THAT THE 
—— ; PREVIOUS RECORD WAS NOT CORRUPTED. 
2608 ; 
2609 ; 


l 


005052 


052700 
052772 
053022 
016054 


002214 


002174 
051330 
010742 


002214 


011074 


002214 


000144 


051350 20%: 


238: 


308: 


40%: 


CK. OOP 


MOV 
MOV 


Ble 


T - HMAROWARE TEST 1-8 TEST ae M1115 06-FEB-84 18:04 
T 4: ERASE AND OPERATION INCOMPLETE 


PC, TS2REST 
PC, T3S2RT2 
PC, TS2RTS 
PC ,SOF INIT 
20% 

FATFLG 


RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, TS20SW 
@TSOPACKET ,R4 

PC ,WRICHR 

25% 

FATFLG 

RO,R1 

ERRNO, WRIMSG, SF IMSG 


PC ,REWINO 
50% 


RO,R4 
FATFLG 
ERRNO, TS2RWN,PKTSSR 


TS2BFR-6,R1 


FLG 
ERRNO, TS2B0T ,EXPREC 


0100. ,R5 
R5,RO 


SEQ 144 


3? >>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
14.2: 


TRAP C$6S5U8 
3SET COMMAND PACKET 
s;SET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
300 INITIALIZE ON CONTROLLER 
;8R IF INIT WAS OK 
sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 411 
. WORD SF IERR 
SF IMSG 


. WORD 
:SET UP UNIT NUMBER IN PACKET 
;SUBROUTINE NEEDS PACKET ADORESS 
;ISSUE WRITE CHARACTERISTICS 
;8R, IF COMPAND ISSUED OK 

COUNT 

: SAVE CONTENTS OF TSSR | 
;WRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 
-WORD 412 
-WORD WRITMSG 
-WORD SF IMSG 


;LOOP IF SELECTED 
TRAP CSCLPl 


sCALL TAPE REWIND COMMAND 

;8R,. IF NO PROBLEM 

3;SET UP REWIND PACKET ADDRESS 
s;ERROR COUNT 

sREWINOD NOT ACCEPTED 


TRAP CSERHRO 
. WORD 413 
. WORD T32RWN 
. WORD PKTSSR 
;LO0P IF SELECTED 
TRAP CSCLPl 
;PICK UP xXSTO 
3;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
s;00ES EXP = REC'D 
sERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP C SERHRD 
. WORD 414 
. WORD T3S2B0T 
.WORD EXPREC 
;LO00P IF SELECTED 
TRAP CSCLPl 


sSTARTING RECORD SIZE 
sSET UP MEMORY FILL 


tee} 4 


Cie 


; PRARE AR bPdRAT Pon PhcHABPE P1115 O6-FEB-84 18:04 


020102 


017502 
003116 
140005 
051450 


000156 
011074 


002214 


051452 


051450 658: 


051450 265%: 


80$: 


2308: 


2408: 


Ree thous 


@TSOPKS, 
R 


PC ,WAITF 


FATFLG 
ERRNO, TS2WOC ,PKTSSR 


(R3)> 
aa ‘tence 


PC. REWIND 

230% 

RO,R1 

FATFLG 

ERRNO, TS2RWN,E XPREC 


TS2BFR+6,R1 
R1,R2 

OBIT1,R2 

R1,R2 

240% 

FATFLG 

ERRNO, TS2B0T ,EXPREC 


01,R5 

PC, SPACE 
#140411, T32PK5 
OTSQPKS,R4 
R4,TSOB(RS) 

PC ,WAITF 
TSSRCRS),R1 
@SSR ,R2 

R1,R2 


SE@ 145 


sCALL MEMORY FILLER 

S STARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC*1,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


;6R, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
. WORD 415 
. WORD T32WOC 
. WORD PKTSSR 
;LO0P IF SELECTED 
TRAP CSCLPl1 
;BUMP RECORD SIZE COUNTER 
sAT 160 SIZE YET 
;BR, IF MORE RECORDS TO WRITE 
;CALL TAPE REWIND COMMAND 
;8R, IF NO PROBLEM 
;SAVE TSSR 
sERROR COUNT 
;REWIND NOT ACCEPTED 
TRAP C SERHRD 
.WORD 416 
. WORD T32RWN 
. WORD EXPREC 
;LO00P IF SELECTED 
TRAP CSCLPl 
;sPICK UP xSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
s;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
sERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP C SERHRD 
-WORD 417 
. WORD T32B0T 
. WORD EXPREC 
;LO0P IF SELECTED 
TRAP CSCLPl 


3;SET UP FOR SPACE COMMAND 

s ISSUE SPACE COMMAND 1 FORWARD 
sERASE DATA,ACK COMMAND 

3;SET UP R4 WITH PACKET ADDRESS 
+ ISSUE COMMAND 

;WAIT FOR SSR TO SET 

s;GET TSSR CONTENTS 

;SET UP EXPECTED 

s;ARE THEY EQUAL 


test 4 


002214 


003116 051452 
140401 051450 
000144 051456 


051450 
000000 


016330 
000002 
000200 


002214 


132472 
000144 


002214 


002214 
017262 


000017 


Die 


- PAROWARE TESTO AE GIEST-HACRD P1113 06-FEB-84 18:04 


BEQ 280% 

INC FATFLG 

ERRHRD ERRNO, TS2ERA,PKTSSR 
2803: CKLOOP 

MOV FREE, TS2R6 

MOV 140401, T32PK5 

MOV #100. ,732SZ 

MOV @T32PK3,R4 

MOV R4,TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRC(RS), Ri 

MOV SSR ,R2 

CMP R1,R2 

BEQ 290% 

INC FATFLG 

ERRHRD ERRNO, T32TSA,PKTSSR 
2908: CKLOOP 

MOV aFREE ,R1 

MOV #100. ,R2 

CMP R1,R2 

BEQ 300$ 

INC FATFLG 

ERRHRD ERRNO, T32ECF .EXPREC 
3003: CKLOOP 
3308: 

ENDSUBS 

CMP FATFLG,@15. 

BLO 9993 

JSR PC ,.CKDROP 
9995: 


3° 
a 
;TEST 4, SUBTEST 5 


INCOMPLETE STATUS, 


SEQ 146 
;8R, IF 
ERROR COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
‘WORD 418 
"wORD  T32ERA 
"WORD  PKTSSR 

;LOOP IF SELECTED 
TRAP = C$CLP1 

;ADDRESS OF BUFFER 

;READ REVERSE .ACK.CVC*1 COMMAND 


;SET UP THE SIZE OF RECORD 

3;SET UP R4 WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED TAPE STATUS ALERT 
;ARE THEY EQUAL 


;8R, IF - 
RROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 419 
. WORD T32TSA 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPl 
;GET DATA READ 
sSHOULD BE 100 
;CHECK'EM OUT 
;BR, IF ven 
RROR COUNT 
; ERASE COMMAND OION’ T WORK 
TRAP CSERHRD 
. WORD 420 
- WORD T32ECF 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLPl 
3>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>> 
L10055: 
TRAP CsESUB 


:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER, OR 
EXECUTED BEYOND THE EOT MARKER, CAUSES TAPE STATUS ALERT 
TERMINATION WITH THE EOT STATUS BIT SET. 
OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE 
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION 

THE FOLLOWING TEST SEQUENCE IS EXECUTED: 


ALSO VERIFIES THAT THE 
TAPE IS BLANK 


TEST 1 


- HARDWARE 


TEST 


012727 
000000 
013727 
000000 
005367 


052737 


1-8 TEST MACRO 
TEST 4: ERASE AND OPERATION INCOMPLETE 


052700 
052772 
053022 
176750 
016054 
000250 
002116 
177772 
177756 
051514 


002214 


002174 051350 20%: 
000040 051350 


051514 


10$: 


eet 06 -FEB-84 18:04 


eB ITS, T3S20SW 


Ele 


SEQ 147 


THE TAPE IS REWOUND. 


ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS 
IS SEEN. AN ERROR IS REPORTED IF ANY TERMINATION OTHER 
THAN NORMAL (WITH EOT*0) OR TAPE STATUS ALERT (WITH 
EOT*1) IS ENCOUNTERED. IF THE CONTROLLER OR TRANSPORT 
DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAULT. 

pin, SR REPORTED AS A FATAL ERROR AND THE TEST IS 


AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS 
ween, bat oar TAPE STATUS ALERT TERMINATION RESULTS, 
led + ° 2 


IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 
CISSUVED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE 
ERROR TERMINATION WITH OPI*1: SPACE RECORDS REVERSE 
SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
(OPP=0) REREAD PREVIOUS (OPP=1) REREAD NEXT (COPP=1) 
REREAD NEXT (COPP=0) READ NEXT SKIP TAPE MARKS REVERSE 
ante pany | MARKS FORWARD SPACE RECORDS FORWARD WRITE 
Y 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
14.3: 


TRAP Cs6SUB 

PC, TS2REST ;SET COMMAND PACKET 

PC, T32RTe2 ;SET UP OTHER COMMAND PACKET 

PC, T3S2QRTS ;SET UP OTHER COMMAND PACKET 

#65000. , TS2DL Y ;SET UP DELAY COUNTER 

PC ,SOF INIT ;00 INITIALIZE ON CONTROLLER 

20% ;BR IF INIT WAS OK 

250 sDELAY ABOUT .25 SEC 
-.WORDB O 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

T32DL Y ;BUMP COUNTER 

10$ ;BR, IF COUNTER NOT DONE 

FATFLG sERROR COUNT 

RO,R1 ;CONTENTS OF TSSR REGISTER 

ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
WORD 421 
. WORD SF IERR 
. WORD SF IMSG 

UNITN, T320SW ;SET UP UNIT CORIVE) NUMBER 


3 TURN ON HIGH SPEED TO SAVE TIME 


TEST 1 - HARDWARE TEST 1- TEST MACRO weit 06-FEB-84 18:04 SEQ 148 


TEST 4: ERASE AND OPERATION INCOMPLE 

2805 050612 012704 051330 MOV @T3S2PACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 

2806 050616 004737 010742 JSR »WRTCHR s ISSUE WRITE CHARACTERISTICS 

2807 050622 103407 BCS 233 ;B8R, IF COMMAND ISSUED OK 

2808 050624 005237 002214 INC FATFLG sERROR COUNT 

2812 050630 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

2813 050632 ERRHRD ERRNO,WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
050632 104456 TRAP CSERHRD 
050634 000646 -WORDB 422 
050636 005052 . WORD WRTMSG 
050640 012114 . WORD SF IMSG 

2814 050642 23%: CKLOOP ;LOOP IF SELECTED 
050642 104406 TR CSCLPi 

2815 050644 004737 011074 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

2816 050650 103411 BCS 30$ ;8R, IF NO PROBLEM 

2817 050652 .016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

2818 050656 010004 MOV RO,R4 ;GET PACKET ADDRESS 

2819 050660 005237 002214 INC FATFLG sERROR COUNT 

2823 050664 ERRHRD ERRNO, TS2RWN,PKTSSR ;sREWIND NOT ACCEPTED 
050664 104456 TRAP CSERHRD 
050666 000647 -WORD 423 
050670 051700 . WORD T32RWN 
050672 012126 . WORD PKTSSR 

2824 050674 30$: CKLOOP ;LOOP IF SELECTED 
050674 104406 TRAP CSCLPl 

2825 050676 013701 051360 MOV T32BFR+6,R1 ;sPICK UP XSTO 

2826 050702 010102 MOV R1,R2 ;SET UP EXPECTED 

2827 050704 052702 000002 BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 

2828 050710 020102 CMP R1,R2 ;D0ES EXP = REC'D 

2829 050712 001406 BEQ 40$ ;8R, IF EQUAL (OK) 

2830 050714 005237 002214 INC FATFLG ;ERROR COUNT 

2834 050720 ERRHRD ERRNO, T32B0T ,EXPREC ; TAPE NOT AT BOT AFTER REWINO 
050720 104456 TRAP CSERHRD 
050722 -.WORD 424 
050724 051516 . WORD T32B0T 
050726 015554 -WORD EXPREC 

2835 050730 40$: CKLOOP ;LOOP IF SELECTED 
050730 104406 TRAP CSCLPl1 

2836 050732 012737 140411 051450 65%: MOV #140411, T32PK3 sERASE DATA,CVC=1,ACK COMMAND 

2837 050740 012704 051450 MOV OT32PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

2838 050744 010337 051456 MOV R3,7T32SZ ;SET UP RECORD SIZE IN PACKET 

2839 050750 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

2840 050754 004737 016330 JSR PC ,WAITF ;WAIT FOR SSR TO SET 

2841 050760 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

2842 050764 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 

2843 050770 020102 CMP R1,R2 ;ARE THEY EQUAL 

2844 050772 001757 BEQ 65$ ;BR, IF OK 

2845 050774 032701 000004 BIT OBIT2,R1 ; CHECK FOR TAPE STATUS ALERT 

2846 051000 001006 BNE 803 ;BR, IF TAPE STATUS ALERT SET 

2847 051002 005237 002214 INC FATFLG ;ERROR COUNT 

2851 051006 ERRHRD ERRNO, T32WOC,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
051006 104456 TRAP CSERHRD 
051010 000651 -WORDB 425 
051012 052536 . WORD T32wWOC 
051014 012126 . WORD PKTSSR 

2852 051. °% 80%: CKLOOP ;LOOP IF SELECTED 
051016 104406 TRAP CSCLPl 

2853 051020 013701 051360 MOV T32BFR+6,R1 ;sPICK UP xSTO 


Gle 
TEST 1 - HARDWARE TEST 


1-8 TEST MACRO M1115 06-FEB-84 16:04 SEQ 149 


TEST 4: ERASE AND OPERATION INCOMPLETE 


2854 051024 010102 MOV R1,R2 ;SET UP EXPECTED 

2855 051026 052702 000001 BIS oBITO,R2 sSET EOT BIT IN EXPECTED 

2856 051032 020102 CMP R1,R2 ;D0ES EXP = REC’D 

2857 051034 001406 BEQ 240% sBR, IF EQUAL (OK) 

2858 051036 0052357 002214 INC FATFLG ;ERROR COUNT 

2862 051042 ERRHRD ERRNO, TS2E0T ,EXPREC ; TAPE NOT AT EOT AFTER a COMMANDS 
051042 104456 CSERHRD 
051044 000652 TMORD 426 
051046 051611 -WORD T32€0T 
051050 015554 -WORD EXPREC 

2863 051052 2408: CKLOOP ;LOOP IF SELECTED 
051052 104406 TRAP CsCLPl 

2864 051054 0127035 051460 MOV @T32CMD RS sSTARTING RECORD SIZE 

2865 051060 013737 003116 051452 MOV FREE, T32R6 ;STARTING READ BUFFER ADDRESS 

2866 051066 011557 051450 MOV (R3), TS2PK3 sREAD DATA,ACK COMMAND 

2867 051072 012704 051450 MOV @TS2PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

2868 051076 012700 177777 MOV @177777,R0 ;SET PATTERN IN CORRECT REGISTER 

2869 051102 004737 01750 JSR PC, FILLMEM sFILL MEMORY WITH ALL ONES 

2870 051106 012737 000144 051456 MOV #100. ,132SZ ;SET UP RECORD SIZE IN PACKET 

2871 051114 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

2872 051120 012737 000062 051514 MOV @50.,T32DLY ;SET UP DELAY COUNTER 

2873 051126 004737 0163550 JSR PC ,WAITF ;sWAIT FOR SSR TO SET 

2874 051132 016501 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

2875 051136 012702 100214 MOV @OSSRISCIBIT2:BIT3,Re ;SET UP EXPECTED 

2876 051142 020102 CMP R1,Re ;ARE THEY EQUAL 

2877 051144 001425 BEG 280% ;BR, IF OK 

2878 051146 DELAY 250 ;DELAY FOR SSR TO BE SET 
051146 012727 000250 MOV 9250,(PC)+ 
051152 -WORDB O 
051154 013727 002116 MOV L$OLy,(€PC)- 
051160 -WORD 0 
051162 005367 177772 DEC how ‘ads 
051166 001375 BNE 
051170 005367 177756 DEC “2ac°e) 
051174 001367 BNE -20 

2879 051176 005337 051514 DEC T320L ¥ ;COUNT DELAY ROUTINE DOWN 

2880 051202 001351 BNE 270% ;BR, IF DELAY HAS NOT ENDED 

2881 051204 005237 002214 INC FATFLG ;ERROR COUNT 

2885 051210 ERRHRD ERRNO, TS2ECF ,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
051210 104456 TRAP CSERHRD 
051212 000653 -WORDB 427 
051214 052455 .WORD TS32ECF 
051216 012126 “ .WORD PKTSSR 

2886 051220 2805: CKLOOP ;LOOP IF SELECTED 
051220 104406 TRAP CsCLPl 

2887 051222 013701 051366 MOV T32BFR+14,R1 sPICK UP XST3 

2888 051226 010102 MOV R1,R2 ;SET UP EXPECTED 

2889 051230 052702 000100 BIS oBIT6,R2 ;SET OPI BIT IN EXPECTED 

2890 051234 020102 CMP R1,R2 :IS OPI BIT SET 

2891 051236 001406 BEQ 290% ;BR, IF BIT IS SET 

2892 051240 005237 002214 INC FATFLG sERROR COUNT 

2896 051244 ERRHRD ERRNO, T3S20PI,EXPREC ;OPI BIT NOT SET 
051244 104456 TRAP CSERHRD 
051246 -WORD 428 
051250 052603 -WORD T320PI 
051252 015554 -WORD EXPREC 

2897 051254 290%; CKLOOP ;LOOP IF SELECTED 


TE 
TE 


S 
S 


1 


T - HARDWARE T 
T 4: ERASE AND 


051440 
051440 
051442 
051444 
051446 


104406 
005723 
021327 
001300 


104403 
023727 
103402 
004737 


004737 
103002 
000137 


104432 
001524 


051350 


100004 
051340 
000000 


000012 
051352 
000000 
000024 
000000 
000000 


051440 
100006 


177777 


002214 
017262 


016536 
047020 


000017 


1638: 


JSR 
BCC 


JMP 
EXIT 


SSlabifol HeDBOE gS 06-FEB-04 10104 


C(R3) 


Hie 


+ 
(R3),0177777 
265% 


FATFLG,@15. 
999% 


PC ,CKDROP 


PC, TSTLOOP 
163% 
T32L00P 


TST 


3 * 
;LOCAL STORAGE FOR THIS TEST 


T3S2PACKET: 

. WORD 100004 

. WORD T32DATA 

. WORD 0 

. WORD 10. 
T32DATA: 

. WORD T32BFR 

. WORD 0 

. WORD 20. 

. WORD 0 
T320SW: .WORD 0 
T32BFR: .BLKW 25. 
: 
;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
; 

.*<,010>€17/770 
T32PKe: 

. WORD 100006 

. WORD 6) 

. WORD 0 

. WORD 6. 
T32PKS: 

. WORD 100005 
T32RB: 
T32WB: .WORD FREE 

. WORD 0 
T32SZ: .WORD 0 

EVEN 


#<,+10>€177770 


SEQ 150 


TRAP 
;BUMP COMMAND POINTER 
sAT END OF TABLE YET 
;BR, KEEP TRYING COMMANDS 


CSCLP1 


3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 


L10056: 
TRAP 
;IS ERROR COUNT AT 25 
;B8R, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


;00 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
;EXECUTE AGAIN 
;ALL DONE THIS TEST 
TRAP 
. WORD 


;COMMAND PACKET FOR TEST 


Cs©SuB 


CSExIT 


.10053-. 


;sWRITE CHARACTERISTICS COMMAND, WITH , 
sADDRESS OF CHARACTERISTICS BLOCK 


;STARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
;ADDRESS OF MESSAGE BUFFER 


;LENGTH OF MESSAGE BUFFER 


;SELECT DRIVE O 
;MESSAGE BUFFER 


;sWRITE SUB SYS MEM COMMAND, AND ACK 


;ADDRESS OF SELECT BLOCK DATA 
;SIZE OF DATA PACKET 


;sREREAD COMMAND, AND ACK 
;sADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER CEXTENT) 


Ile 
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2957 3 
2958 .EVEN 
ae ; TAPE MOTION PACKET COMMAND VALUES 
2961 051460 T32CMD: 
2962 051460 140410 . WORD 140410 ;SPACE RECORDS REVERSE 
2963 051462 141410 . WORD 141410 :;SKIP TAPE MARKS REVERSE 
2964 051464 140401 . WORD 140401 ;sREAD REVERSE 
2965 051466 141001 . WORD 141001 sREREAD PREVIOUS (OPP=0) 
2966 051470 161401 . WORD 161401 sREREAD NEXT COPP=1) 
2967 051472 161001 . WORD 161001 sREREAD PREVIOUS (OPP-1) 
2968 051474 141401 . WORD 141401 sREREAD NEXT (COPP=0) 
2969 051476 140001 . WORD 140001 sREAD NEXT 
2970 051500 141410 . WORD 141410 ;SKIP TAPE MARKS REVERSE 
2971 051502 141010 . WORD 141010 ;SKIP RECORDS FORWARD 
2972 051504 141005 . WORD 141005 ;WRITE DATA RETRY 
bh, 051506 177777 . WORD 177777 ;END OF DATA 
2974 
2975 ’ ; 
2976 051510 000000 T32CNT: .WORD O ; TAPE TIMER COUNTER STORAGE AREA 
2977 051512 o000N0 T3S2CNU: .WORD 0O ;TAPE TIMER COUNTER STORAGE AREA 
coe 051514 000000 T3S20LY: .WORD 0O ;DELAY COUNTER 
3* 
2980  3LOCAL TEXT MESSAGES FOR TEST 
a ; 
2983 051516 124 141 160 TS32B0T: .ASCIZ ce Not At BOT After REWIND Command (BOT Not Set In XSTO)’ 
2984 051611 124 141 160 TS2EOT: .ASCIZ ape Status Alert During Erase To EOT, But EOT Not Set’ 
2985 051700 122 145 167 T32RWN: .ASCIZ hy R CPOSZT TION) Command Not Accepted’ 
2986 051747 124 123 123 T32AM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMMAND’ 
2987 052016 124 123 123 T32ERA: .ASCIZ ‘TSSR Not Correct After ERASE Command’ 
2988 052063 124 123 102 T32BA: .ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 
2989 052136 122 105 101 T32RIB: .ASCIZ ‘READ REVERSE, After ERASE From BOT, Failed To Set RIB In XST3’' 
2990 052234 124 123 123 T32SCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ 
2991 052311 124 123 123 TS32TSA: .ASCIZ ‘TSSR Not Correct After READ REVERSE Into BOT’ 
2992 052366 102 117 124 TS32B0E: .ASCIZ ‘BOT (XSTO) Still Set After Erase From Tape''s BOT Marker’ 
2993 052455 105 122 101 TS32ECF: .ASCIZ ‘ERASE Failed To Clear Tape (Erase) Tape Properly’ 
2994 052536 124 1235 123 T3S2WOC: .ASCIZ ‘TSSR Not Correct After ERASE Command’ 
2995 052603 117 120 111 T320PI: .ASCIZ ‘OPI Bit (XST3) Failed To Set’ 
2996 052640 105 162 141 TSTS32I0: .ASCIZ ‘Erase And Operation Incomplete’ 
2997 EVEN 
2998 3° 
2999 ; 
3000 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
3001 ;WRITE SUBSYSTEM MEMORY COMMAND 
3002 ; 
3003 ;- 
3004 
3005 052700 T3QREST: 
3006 052700 SAVREG ;SAVE THE REGISTERS 
3007 052704 012701 051330 MOV @T3S2PACKET,R1 ;START OF THE PACKET 
3008 052710 012721 100004 MOV #100004 ,(R1)> ;WRITE SUBSYSTEM MEM, WITH ACK 
3009 052714 012721 051340 MOV @T32DATA,C(R1)> ;sADDRESS OF CHARAISTICS DATA BLOCK 
3010 052720 005021 CLR C(R1)>+ ;EXTENDED ADDRESS 
3011 052722 012721 000012 MOV 010. ,CR1)-+ ;SIZE OF DATA BLOCK IN BYTES 
3012 052726 012721 051352 MOV @T32BFR,C(CR1)->+ ;ADDRESS OF MESSAGE BUFFER 


3013 052732 005021 CLR C(R1)-+ 
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TEST 4: ERASE AND OPERATION INCOMPLETE 


SEQ 152 


3014 052734 012721 000024 MOV @20.,(R1)>+ ;LENGTH OF MESSAGE BUFFER 
3015 052740 005021 CLR CR1)-+ 
3016 052742 012711 000000 MOV 00,(R1) ;SELECT DRIVE ZERO 
3017 052746 012702 000050 MOV 4., ;sNUMBER OF LOCATIONS TO BE CLEARED 
3018 OS2752 012762 177777 O51352 64$: MOV 0177777, T32BFRCR2) ;ALL ONES TO MESSAGE BUFFER 
3019 052760 005742 TST (R2 sNEXT LOCATION 
3020 052762 022702 000000 CMP #0 ,R2 sAT END OF LOOP YET 
3021 052766 001371 BNE 64$ ;KEEP GOING UNTIL DONE 
cook 052770 000207 RTS PC ;RE TURN 
3024 052772 T32RTe2: 
3025 052772 SAVREG ;SAVE THE REGISTERS 
3026 052776 012701 051440 MOV @T32PK2,R1 ;START OF THE PACKET 
3027 053002 012721 100006 MOV #100006 ,(R1)>+ ;WRITE SUBSYSTEM MEM. WITH ACK, 
3028 053006 005021 CLR CR1)> sADDRESS OF DATA BLOCK 
3029 053010 005021 CLR CR1)> sEXTENDED ADDRESS 
3030 053012 012721 000006 MOV 6.,(CR1)+ ;SIZE OF DATA BLOCK IN BYTES 
3031 053016 005021 CLR CR1)> 
3032 053020 000207 RTS PC ;RE TURN 
3033 053022 T32QRTS: 
3034 053022 SAVREG . ;SAVE REGISTERS 
3035 053026 012701 051450 MOV @T32PK3,R1 ;SET UP POINTER ADDRESS 
3036 053032 005021 CLR C(R1)-+ ;COMMAND SPACE 
3037 053034 005021 CLR CR1)> sADORESS OF DATA BLOCK 
3038 053036 005021 CLR CR1)> sEXTENDED ADDRESS 
3039 053040 005011 CLR CR1) ;SIZE OF DATA TRANSFER BLOCK 
3040 053042 000207 RTS PC ;RE TURN 
3041 053044 ENDTST 
053044 L10053: 
053044 104401 TRAP CSETST 
3042 SBTTL TEST 5S: DATA PARITY TEST 
3043 3% 
3044 ; 
3045 ; 
3046 ; 
3047 ; 
3048 ; 
3049 ;TEST 5 -- Data Parity Test 
3050 ; 
3051 
3052 ‘This test verifies that the data parity circuitry in both the controller and the . 
3053 ;transport is operating properly by forcing deta records with wrong parity to be 
3054 ;written onto tape and checking the results obtained when the data is read. The 
fone :Following test sequence is performed: 
; 
3057 ; 1. A Write Characteristics command is issued and the resulting status is 
3058 : examined to determine the states of the Extended Features and Buffering 
3059 ; Enable switches on the controller module. If buffering is disabled, no 
3060 3 further actions need be taken in this step and the program proceeds to 
3061 : the next step. If buffering is enabled, it is disabled via the Buffer 
3062 ; Control field in the extended characteristics date word supplied by a 
3063 ; Write Characteristics command. (The module must be in Extended mode, 
3064 ; so if it is not already, a Write Subsystem Memory command is issued to 
3065 ; change the logical sense of the Extended Features switch. ) 
3066 ; 
5067 ; 2. The Write Subsystem Memory command is used to set the Force Wrong 
3068 ; Parity control flip flop. 


053124 
053130 


012737 
012700 


004737 
012737 


006413 
5645 


002216 
054716 
054720 
055662 
055754 
056016 
176750 


002172 


002210 


054722 


Be 


10. 


11. 


The tape is rewound. 
A Write Data command is issued to write a data record containing all 
0's. It is verified that this command results in Recoverable Error 
termination (TC=4) and that the Uncorrectable Data Error (UNC) error 
bit is set. 
The previous step is for each data value 2 through 377 
Coctal). 
The tape is rewound. 
A Read Next command is issued to read a record with faulty parity. It 
is verified that this command results in Recoverable Error termination 
(TC=4) and that both the Uncorrectable Data (UNC) and Read Bus Parity 
(RBP) error bits are set. It is also verified that the data actually 
read is correct. 
A Read Reverse command with OPP-1 is issued to read, in reverse, the 
seme record with faulty parity as read in the previous step. It is 
verified that this command results in Recoverable Error termination 
(TC=4) and that both the Uncorrectable Data (UNC) and Read Bus Parity 
(RBP) error bits ere set. It is also verified that the data actually 
read is correct. 
Tape is spaced forward one record. 
The previous three steps are executed for each test record originally 
written. 
The controller is initialized to clear the special test conditions 
previously set up. 

BGNTST - 

MOV SEPRT2,EPRTSW ;SECONDARY ERROR MESSAGE 

MOV #TST33ID,.RO ;ASCII MESSAGE TO IDENTIFY TEST 

JSR PC, TSTSETUP ;00 INITIAL TEST SETUP 

MOV #5 ,LOOPCNT ;PERFORM S ITERATIONS 

CLR T33CNT ;CLEAR TAPE RECORD COUNTER 
SUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 

TS.1: 
TRAP Cs$BSUB8 

CLR INTRECV ; INTERRUPT INDICATOR 

CLR T33CNT ; TIMER FOR WRITE DATA SPACING 

CLR T33CNU ; TIMER FOR WRITE DATA RETRY SPACING 

JSR PC, T33REST ;SET COMMAND PACKET 

JSR PC, T33RT2 ;SET UP OTHER COMMAND PACKET 

JSR PC, T33RT3 ;SET UP OTHER COMMAND PACKET 

MOV #65000. , T33DLY ;SET UP DELAY COUNTER 


Kile 
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TEST 5S: DATA PARITY TEST 


SEQ 155 


T 1 


3127 
3128 
3129 


DAT 


053136 
053142 
053144 
053144 


053220 


053226 
053232 
053236 
053240 
053244 
053246 
053246 
053250 


004737 
103426 


012727 


012114 
013737 


012704 
004737 
103407 
005237 
010001 


104456 
000766 
005052 
012114 


005237 


104456 
000770 
055325 
015554 


016054 


000250 
002116 
177772 
177756 
054722 
002214 


002174 


054550 
010742 


002214 


011074 
000002 
002214 


054600 
000002 


002214 


10$: 


054570 20%: 


233: 


30$: 


Lie 
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PC ,SOF INIT 
20$ 
250 


RO,R1 
ERRNO, SF TERR, SF IMSG 


? 


UNITN, T3350SW 


@T33PACKET,R4 
PC,WRTCHR 

23$ 

FATFLG 

RO,R1 

ERRNO, WRTMSG, S@CMSG 


PC ,REWIND 

30$ 

TSSRCRS),R1 

RO,R4 

FATFLG 

ERRNO, T33RWN,PKTSSR 


FATFLG 
ERRNO, T33B0T ,EXPREC 


SEQ 154 


300 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
;DELAY ABOUT .25 SEC 


MOV $250,(PC)+ 
. WORD 0 
MOV ‘epeherts 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

;BUMP COUNTER 

;BR, IF COUNTER NOT DONE 

;ERROR COUNT 

;sCONTENTS OF TSSR REGISTER 

;sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
. WORD 501 
. WORD SF IERR 


WORD SFIMSG 
;SET UP UNIT NUMBER 


; SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

;ERROR COUNT 
;SAVE CONTENTS OF TSSR 
;sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 
-WORDB 502 
-WORD WRTMSG 
-WORD SFIMSG 


;LOOP IF SELECTED 


TRAP CSCLP1 

;CALL TAPE REWIND COMMAND 

;B8R, IF NO PROBLEM 

;GET TSSR CONTENTS 

;GET PACKET ADDRESS 

;sERROR COUNT 

;sREWIND NOT ACCEPTED 
TRAP CSERHRD 
. WORD 503 
.WORD’' . T33RWN 
WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLPi 

;PICK UP xSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP = REC'D 

;BR, IF EQUAL (OK) 

;ERROR COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 504 
. WORD T33B80T 
WORD EXPREC 


TEST 's 


012114 
104406 


112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 


104456 
000773 
055241 
012126 


104406 
012703 
013737 
005037 
012737 
012704 


002220 


000200 
000010 
054660 
000000 


016416 


002214 


002222 


002174 
000020 
000010 
054550 
010742 


002214 


000100 
000011 
054660 
000000 


016416 


002214 


000026 
003116 
054720 
140005 
054670 


054701 
054700 


054570 
054570 
054570 


054672 


054670 110%: 


40$: 
423: 


50$: 
555: 


80$: 
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CKLOOP 


M12 


18:04 


EXTFEA 
55$ 
#200, 1T338S1 


PC ,CHKTSSR 
50$ 
RO,R1 


FATFLG 
ERRNO, T33SSR,PKTSSR 


UNITN, 7330SW 
#BIT4,7350SW 
BITS, T3350SW 
@TSSPACKET ,R4 
PC ,WRTCHR 


RO, 1 
ERRNO ,,WRTMSG, SF IMSG 


#100, T338S1 
#11,T338S0 
@T33PK2,R4 
R4,TSOBCRS) 
PC,CHKTSSR 

80$ 

RO,R1 

FATFLG 

ERRNO, T33SSR,PKTSSR 


#22. ,R35 
FREE, T353W6 
T33C 


NU 
#140005, T35PKS 
@T33PK3,R4 


SEQ 155 


;LOOP IF SELECTED 


TRAP 
;CHECK FOR EXTENDED FEATURES Sw 


;BR IF SWITCH IS ON 


CSCLP1 
SWITCH 


sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNC. SEL. BIT CTURN ON EXTFEA SWITCH) 


;WRITE SUBSYS MEM PACKET _ 
; ISSUE COMMAND | 
;WAIT FOR SSR 

;BR, IF NO ERROR 

;ERROR, SAVE TSSR 


;ERROR COUNT 
;TSSR NOT CORRECT AFTER te MISCELLANEOUS 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


;CHECK FOR BUFFER ENABLED 

;BR, IF BUFFERING NOT ENABLED 
;SET UP UNIT NUMBER 

;BUFFER DISABLE 

;BUFFER DISABLE SEND O01 TO BITS 


CSERHRD 


CSCLP1 


4 ANC 3 


; SUBROUTINE NEEDS PACKET ADDRESS 


; ISSUE WRITE CHARACTERISTICS 

;38R, IF COMMAND ISSUED OK 
sERROR COUNT 

;SAVE CONTENTS OF TSSR 

;sWRITE CHARACTERISTISC iy 


;LOOP IF SELECTED 
TRAP 


CSERHRD 
306 


WRTMSG 
SF IMSG 


CsCLPl 


;sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNC. SEL. BIT CSET WRONG PARITY) 


;WRITE SUBSYS MEM PACKET 
; ISSUE COMMAND 

;WAIT FOR SSR 

;BR, IF NO ERROR 

;ERROR, SAVE TSSR 


;ERROR COUNT 
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
. WORD 507 
. WORD T33SSR 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPl 


sNUMBER OF RECORDS TO BE WRITTEN 


;sSTARTING WRITE BUFFER ADDRESS 
;MAKE SURE ITS CLEAR 

;sWRITE DATA,ACK,CVC=1 COMMAND 
;SET UP R4&4 WITH PACKET ADDRESS 
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TEST 5S: DATA PARITY TEST 


SEQ 156 


3220 053612 012737 000024 054676 MOV #20.,T33SZ ;SET UP RECORD SIZE IN PACKET 

3221 053620 013777 054720 i27270 MOV T33CNU, OF REE sMEMORY FILLED WITH DATA IN RECORD 

S222 37 054720 INC T33CNU sREADY FOR NEXT RECORD 

3225 053632 010465 000000 MOV R4, TSOBCRS) : ISSUE COMMAND 

3224 053636 004737 016350 JSR PC ,WAITF ;WAIT FOR SSR TO SET 

3225 053642 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

5226 053646 012702 100210 MOV @SSR!SC!BIT3,Re2 ;SET UP EXPECTED 

3227 053652 020102 CMP R1,R2 ;ARE THEY EQUAL 

3228 053654 001406 BEG 120% ;BR, IF OK 

3229 053656 005237 002214 INC FATFLG ;ERROR COUNT 

3233 053662 ERRHRD ERRNO, TSSWPW,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
053662 104456 TRAP CSERHRD 
053664 000774 -WORD 508 
053666 055002 -WORD T33WPW 
053670 012126 -WORD ®©KTSSR 

3234 053672 120$: CKLOOP ;LOOP IF SELECTED 
053672 104406 TRAP CSCLP1 

3235 053674 0135701 054602 MOV T33BFR+10,R1 ;PICK UP XST1 

3236 053700 010102 MOV Re ;SET UP EXPECTED 

3237 053702 052702 000002 BIS oBIT1,R2 ;SET UNC BIT IN EXPECTED 

3238 053706 020102 CMP R1,Re ;DOES EXP = REC‘'D 

3239 053710 001406 BEQ 130$ ;BR, IF EQUAL (OK) 

3240 053712 005237 002214 INC FATFLG ;ERROR COUNT 

3244 053716 ERRHRD ERRNO, TSS5UNC ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
053716 104456 TRAP CSERHRD 
053720 000775 .WORD 509 
053722 055062 -WORD T33UNC 
053724 015554 -WORD EXPREC 

3245 053726 130$: CKLOOP ;LOOP IF SELECTED 
053726 104406 TRAP CsCLPi 

3246 053730 005303 DEC R3 ;DEC RECORD COUNTER 

3247 053732 001322 BNE 110$ ;BR, IF MORE RECORDS TO WRITE 

5248 053734 004737 011074 JSR PC REWIND ;CALL TAPE REWIND COMMAND 

3249 053740 103411 BCS 140$ ;BR, IF NO PROBLEM 
053742 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

3251 053746 010004 MOV RO,R4 ;GET PACKET ADDmcss 

S252 053750 005237 002214 INC FATFLG ;ERROR COUNT 
053754 | ERRHRD ERRNO, TSSRWN,PKTSSR ;sREWIND NOT ACCEPTED 
053754 104456 TRAP CSERHRD 
053756 000776 -WORD 510 
053760 055420 .WORD TS3S5RWN 
053762 012126 .WORD PKTSSR 

3257 053764 1408: CKLOOP ;LOOP IF SELECTED 
053764 104406 TRAP CsCLPi 

$258 053766 013701 054600 MOV TS3EFP+6,R1 ;PICK UP XSTO 

3259 053772 010102 MOV R1,Re ;SET UP EXPECTED 

3260 053774 052702 000002 BIS OBIT1,R2 ;SET BOT BIT IN EXPECTED 

3261 054000 020102 CMP R1,Re ;D0ES EXP = REC'D 

3262 054002 001406 BEQ 1505 ;BR, IF EQUAL (OK) 

3263 054004 005237 002214 INC FATFLG ;ERROR COUNT 

3267 054010 ERRHRD ERRNO, S3B0T,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
054010 104456 TRAP C SERHRD 
054012 000777 -WORD 511 
054014 055325 .WORD 153580T 
054016 015554 -WORD EXPREC 

3268 054020 150$: CKL_OOP ;LOOP IF SELECTED 
054020 104406 TRAP CsCvLP i 


‘< 
B14 
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SEQ@ 157 
TEST 5: DATA PARITY TEST 


3269 054022 005057 054720 CLR TSSCNU sCLEAR DATA VALUE IN RECORD 

S270 054026 012703 000024 MOV 020, ,.25 sRECORD SIZE 

$271 054032 015737 003116 054672 155%: MOV FREE , T55R6 sSTARTING WRITE BUFFER ADDRESS 

S272 054040 012737 140001 054670 MOV #140001, T55PKS sREAD DATA,CVC*1,ACK COMMAND 

3273 054046 012704 054670 MOV OTSSPKS,R4 sSET UP R4 WITH PACKET ADDRESS 

3274 054052 012737 000024 054676 MOV #20. ,133SZ sSET UP RECORD SIZE IN PACKET 

3275 054060 010465 000000 MOV R4,TSOBCRS) s ISSUE COMMAND 

3276 054064 004757 016350 JSR PC ,WAITF sWAIT FOR SSR TO SET 

$277 054070 016501 000002 MOV TSSRCRS),.R1 sGET TSSR CONTENTS 

$278 054074 012702 100210 MOV @SSR!ISC!BIT3S,R2 sSET UP EXPECTED 

3279 054100 020102 CMP R1,R2 sARE THEY EQUAL 

3280 054102 001406 BEQ 1608 sBR, IF OK 

3281 054104 0052357 002214 INC FATFLG sERROR COUNT 

3285 054110 ERRHRD ERRNO, TS35WOC ,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
054110 104456 TRAP C SERHRD 
054112 001000 -WORD 5l2 
054114 055467 -WORD T33wOC 
054116 012126 -WORD PKTSSR 

3286 054120 160%: CKLOOP sLOOP IF SELECTED 
054120 104406 TRAP CSCLP1 

3287 054122 0135701 054602 MOV T33BFR+10,R1 sPICK UP XST1 

3288 054126 010102 MOV R1,R2 sSET UP EXPECTED 

3289 054130 052702 000002 BIS oBIT1,R2 ;sSET UNC BIT IN EXPECTED 

3290 054134 020102 CMP R1,Re2 sD0ES EXP = REC'D 

3291 054136 001406 BEQ 1708 sBR, IF EQUAL (OK) 

S292 054140 005237 002214 INC FATFLG sERROR COUNT 

3296 054144 ERRHRD ERRNO, TSSUND,EXPREC sUNC BIT NOT SET AFTER READ CMD. 
054144 104456 TRAP CSERHROD 
054146 001001 -WORD 515 
054150 055152 -WORD T33UND 
054152 015554 -WORD EXPREC 

3297 054154 1708; CKLOOP ;LOOP IF SELECTED 
054154 104406 TRAP CsCLP1 

5298 054156 013701 054602 MOV TSSBFR+10,R1 sPICK UP XSTl 

3299 054162 010102 MOV R1,R2 ;SET UP EXPECTED 

3300 054164 052702 000400 BIS OBITS ,R2 ;SET RBP BIT IN EXPECTED 

3301 054170 020102 CMP R1,Re sD0ES EXP = REC'D 

3302 054172 001406 BEQ 180% sBR, IF EQUAL (OK) 

3303 054174 005237 002214 INC FATFLG sERROR COUNT 

3307 054200 ERRHRD ERRNO, TS55RBP ,EXPREC sREAD BUS PARITY ERROR BIT NOT SET 
054200 104456 TRAP CSERHRD 
054202 001002 -WORD 514 

204 054724 -WORD TS35RB6P 

054206 015554 -WORD EXPREC 

3308 054210 1808: CKLOOP sLOOP IF SELECTED 
054210 104406 TRAP CscLPl 

5309 054212 017701 126700 MOV OFREE ,R1 sGET DATA READ 

3310 054216 013702 054720 MOV T35CNU,RO :GET PATTERN 

3311 054222 020102 CMP R1,R2 sARE THEY EQUAL 

3312 054224 001406 BEQ 182% sBR, IF e 

3313 054226 005237 002214 INC FATFLG ERROR COUNT 

3317 054232 ERRHRD ERRNO, TS3SD0TA,EXPREC sDATA NOT CORRECT 
054232 104456 TRAP  CSERHRD 
054234 001005 .WORD S15 
054236 055550 . WORD T330T4 
054240 015554 -WORD EXPREC 

3318 054242 182%: CKt OOP sLOOP IF SELECTED 


Lao 
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TEST 5S: DATA PARITY TEST 

054242 104406 TRAP CSCLP1 

3319 054244 015737 003116 054672 MOV FREE , T35w8 sSTARTING WRITE BUFFER ADDRESS 

3320 054252 012737 140401 054670 195%: MOV 0140401, T35PK5 sREAD REVERSE DATA RETRY,ACK COMMAND 

3321 054260 012704 054670 MOV OTSSPKS,R4 sSET UP R4 WITH PACKET ADDRESS 

3322 054264 612737 000024 054676 MOV 020. ,135SZ sSET UP RECORD SIZE IN PACKET 

3323 054272 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 

3324 054276 004737 0163550 JSR PC ,WAITF sWAIT FOR SSR TO SET 

3325 054302 016501 000002 MOV TSSR(RS), R1 sGET TSSR CONTENTS 

3326 054306 012702 100210 MOV eSC!SSRIBITS, R2 sSET UP EXPECTED 

3327 054312 020102 CMP R1,Re2 sARE THEY EQUAL 

3328 054314 001406 BEQ 190$ sBR, If OK 

3329 054316 0052357 002214 INC FATFLG sERROR COUNT 

3333 054322 ERRHRD ERRNO, TS5WOC,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
054322 104456 TRAP CSERHRD 
054324 001004 -WORD 516 
054326 055467 -WORD T535wWOC 
0543350 012126 -WORD PKTSSR 

3334 054332 190$; CKLOOP sLOOP IF SELECTED 
054332 104406 TRAP CsC.Pi 

3335 054334 015701 054602 MOV T33BFR+10,R1 :PICK UP XST1 

3336 054340 010102 MOV R1,R2 ;SET UP EXPECTED 

3337 054342 052702 000002 BIS oBIT1,R2 sSET UNC BIT IN EXPECTED 

3338 054346 020102 CMP R1,R2 sDOES EXP = REC'D 

3339 054350 001406 BEQ 200% ;BR, IF EQUAL (OK) 

3340 054352 005237 002214 INC FATFLG s;ERROR COUNT 

3344 054356 ERRHRD ERRNO, T33UND,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
054356 104456 TRAP CSERHRD 
054360 001005 -WORD 517 
054362 055152 -WORD T33UND 
054364 015554 -WORD EXPREC 

3345 054366 2008: CKLOOP ;LOOP IF SELECTED 
054366 104406 TRAP CsCLPi 

3346 054370 013701 054602 MOV T336FR+10,R1 sPICK UP XSTO 

3347 054374 010102 MOV R1,R2 ;SET UP EXPECTED 

3348 054376 052702 000400 BIS oBITS,R2 ;SET RBP BIT IN EXPECTED 

3349 054402 020102 CMP R1,Re ;s00ES EXP = REC'D 

3350 054404 001406 BEQ 210% ;BR, IF EQUAL (OK) 

3351 054406 005237 002214 INC FATFLG sERROR COUNT 

3355 054412 ERRHRD ERRNO, T35RBP,EXPREC ;READ Bus PARITY ERROR ag B- SET 
054412 104456 CSERHRD 
054414 001006 MORO 518 
054416 054724 -WwORD T33R6P 
054420 015554 -WORD EXPREC 

3356 054422 2108: CKLOOP ;LOOP IF SELECTED 
054422 104406 | TRAP Csc.Pl 

3357 054424 017701 126466 MOV OFREE ,R1 :GET DATA READ 

33558 054430 013702 054720 MOV TSSCNU,R2 sGET PATTERN 

3359 054434 020102 CMP R1,Re2 sARE THEY EQUAL 

3360 054436 001406 BEQ 2158 ;BR, IF OK 

3361 054440 005237 002214 INC FATFLG sERROR COUNT 

3365 054444 ERRHRD ERRNO, TSSD0TA,EXPREC sDATA NoT CORRECT 
054444 104456 TRAP CSERHRD 
054446 001007 .WORD 519 
054450 055550 -WORD TSS0TA 
054452 015554 -WORD EXPREC 

3366 054454 2158; CKLOOP ;LOOP IF SELECTED 
054454 104406 TRAP CSsCLPl 


054670 
054670 
054672 
05467e 
054674 
054676 


010302 
012705 
004737 
010205 
005237 
005303 
001402 
000137 


1044035 
023727 
103402 
004737 


002214 
017262 


016536 
053076 


000017 


2208: 


9993: 


2303: 


; BAPRMBRAr TESfede® TEST MACRO M1115 06-FEB-84 16:04 


R3,Re 
#1,R5 
PC, SPACE 
R2,R5 
T33CNU 
R3 

220% 
155% 


D134 


FATFLG,@15. 
999% 


PC ,CKOROP 


PC, TSTLOOP 
230% 
T335L00P 


3° 
sLOCAL STORAGE FOR THIS TEST 


SUBSYSTEM MEMORY COMMAND PACKET 


*<,°10>€177770 


100004 
T33DATA 


-*¢,¢10>€177770 


T33PACKET: 
. WORD 
. WORD 
. WORD 
. WORD 
TS3DATA: 
. WORD 
. WORD 
. WORD 
. WORD 
T330SW: .WORD 
T33BFR: .BLKW 
é 
;WRITE 
; 
T33PKe2: 
. WORD 
. WORD 
. WORD 
. WORD 
T33PK3;: 
. WORD 
T33RB: 
T33WB: .WORD 
. WORD 
1T35SZ: .WORD 


100006 
T336F 2 


SEQ@ 159 


sSAVE R3 FOR A MOMENT 

sSPACE FORWARD ONE RECORD 

sCALL ROUTINE 

sRESTORE RS 

sBUMP TO NEXT RECORD NUMBER 
OUNTER 


sBR, 


geeeeececcecececee END SUBTEST »>>>>>>>> >>> 
© 


L 10060 
TRAP CsESUB 
3IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


3:00 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP 
. WORD 


CSExIT 
L10057.-. 


;COMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


;SELECT ORIVE O 
sMESSAGE BUFFER 


;sWRITE SUB SYS MEM COMMAND, 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


AND ACK 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1115 06-FEB-84 18:04 
TEST 5S: DATA PARITY TEST 


SEQ 160 


3427 .EVEN 
3428 ; 
3429 ; 
3430 ; 
3431 054700 T336F 2: 
3432 054700 010 T3368S0: .BYTE 10 ;BSELO AREA . 
3433 054701 200 T338S1: .BYTE 200 ;BSEL1 AREA 
3434 054702 000000 T33S2: .WORD O ;SEL 2 AREA 
3435 054704 000000 ‘T33S3: .WORD O sDATA AREA 
3436 | ; 
3437 ; 
3438 .EVEN 
coae ;TAPE MOTION PACKET COMMAND VALUES 
440 
3441 054706 100205 T33RN: .WORD 100205 sREREAD DATA (NEXT) 
3442 054710 100605 T33WOR: .WORD 100605 sREREAD DATA RETRY 
3443 054712 102205 T33CON: .WORD 102205 ;sWRITE CONTINOUS 
3444 054714 177777 . WORD 177777 sEND OF DATA 
3445 
3446 
3447 054716 000000 T3S3CNT: .WORD 0O ;TAPE TIMER COUNTER STORAGE AREA 
3448 054720 000000 T33CNU: .WORD O ;TAPE TIMER COUNTER STORAGE AREA 
conn 054722 000000 T330LY: .WORD 0O ;DELAY COUNTER 
3° 
3451 ;sLOCAL TEXT MESSAGES FOR TEST 
3452 3- 
3453 
3454 054724 122 145 141 T33RBP: .ASCIZ ‘Read Bus Parity Bit Not Set (XST1)., Should Be’ 
3455 055002 124 125 123 T33wPW: .ASCIZ ‘TSSR Incorrect After Wrong Parity Write Command’ 
3456 055062 125 116 103 TS3S3UNC: .ASCIZ ‘UNC Bit (XST1) Not Set After Wrong Perity WRITE Command’ 
3457 055152 125 116 103 TS33UND: .ASCIZ ‘UNC Bit (XST1) Not Set After Wrong Parity READ Command’ 
3458 055241 127 122 111 T33SSR: .ASCIZ ‘WRITE MISSCELLANEOUS CONT/READ COMMAND Not Accepted’ 
3459 055325 124 141 160 T33B0T: .ASCIZ ‘Tape Not At BOT After REWIND Command (80T Not Set In xSTO): 
3460 055420 122 145 167 TS33RWN: .ASCI ‘Rewind (POSITION) Command Not Accepted’ 
3461 055467 124 123 123 T33WOC: .ASCIZ ‘TSSR Not Correct After READ Wrong Parity Command’ 
3462 055550 104 141 164 TS330TA: .ASCIZ ‘Date Compare Error, Data Read From Tape Not Equal To written’ 
3463 055645 104 141 164 TST33I0 -ASCIZ ‘Date Parity’ 
3464 EVEN 
3465 3° 
3466 ; 
3467 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
3468 ;WRITE SUBSYSTEM MEMORY COMMAND 
3469 ; 
3470 g° 
3471 
5472 055662 T33REST: 
3473 055662 SAVREG ;SAVE THE REGISTERS 
3474 055666 012701 054550 MOV @TSSPACKET,R1 ;START OF THE PACKET 
3475 055672 012721 100004 MOV #100004 ,(R1)> ;sWRITE SUBSYSTEM MEM. WITH ACK, 
3476 055676 012721 054560 MOV @TS3DATA,(R1)-> sADDRESS OF CHARAISTICS DATA BLOCK 
3477 055702 005021 CLR (R1)> sEXTENOED ADDRESS 
3478 055704 012721 000012 MOV #10. ,CR1)> ;SIZE OF DATA BLOCK IN BYTES 
3479 055710 012721 054572 MOV OTS3BFR,CR1)>» sADDRESS OF MESSAGE BUFFER 
3480 055714 005021 CLR (R1)> 
3481 055716 012721 000024 MOV @20.,(R1)> ;sLENGTH OF MESSAGE BUFFER 
3482 055722 005021 CLR (R1)-> 
3483 055724 012711 000000 MOV @#0,(R1) ;SELECT DRIVE ZERO 


TEST 1 
TEST 


055730 


012702 
012762 
005742 
022702 
001371 
000207 


012701 


012701 
005021 
005021 
005021 
005011 
000207 


104401 


012737 


000030 
177777 


054670 


054572 64%: 


T35RTe: 


T33RTS3: 


3; * 


. SBTTL 


F 1S 


- HARDWARE TEST 1-8 TEST MACRO M1113 O06-FEB-84 18:04 
S: DATA PARITY TEST 


024. ,R2 
0177777, TS35BFRCR2) 
-(R2) 


@T335PK2,R1 
#100006 ,(R1)> 
OTS5BF2,(R1)> 
CR1)-+ 


@T33PK3,R1 
(R1)- 
CR1)> 
CR1)e> 

(R1) 

PC 


SEQ@ 161 


sNUMBER OF LOCATIONS TO BE CLEARED 


s;ALL ONES TO MESSAGE BUFFER 
sNEXT LOCATION 

sAT END OF LOOP YET 

sKEEP GOING UNTIL DONE 

; FE TURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
; \ODRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


;RE TURN 


;SAVE REGISTERS 

;SET UP POINTER ADDRESS 
;COMMAND SPACE 

;sADDRESS OF DATA BLOCK 
;EXTENDED ADDRESS 

s;SIZE OF DATA TRANSFER BLOCK 
;RE TURN 


L 10057: 
TRAP 


TEST 6: OPERATIONS AT EOT 


: 
;THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
;COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


3 
;THE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 
5 


3; * 


GEPRT1,EPRTSW 
@TST34I0,RO 
PC, TSTSETUP 
@S ,LOOPCNT 
T34CNT 


: 
sTEST 6, SUBTEST 1 


T6:: 
;PRIMARY ERROR MESSAGE 
sASCII MESSAGE TO IDENTIFY TEST 
;00 INITIAL TEST SETUP 
;PERFORM S ITERATIONS 
;CLEAR TAPE RECORD COUNTER 


THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY BY 


THE VARIOUS TAPE MOTION COMMANDS. 


IS PERFORMED: 


THE FOLLOWING TEST SEQUENCE 


CsETST 


G15 


TEST 1 - HARDWARE TEST 359 TEST MACRO M1113 O6-FEB-84 18:04 SEQ 162 
TEST 6: OPERATIONS AT EO 

3542 ; 
3545 ; THE TAPE IS REWOUND. 
3544 
3545 2. WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
3546 ; STATUS ALERT TERMINATION IS SEEN WITH EOT=1. ERRORS 
3547 : OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
3548 ; ERRORS CAUSE A FATAL ERROR REPORT. RECORDS WITH DATA 
3549 ; ERRORS ARE RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA. 
3550 : 
3551 ; 3. ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED 
3552 : THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 
3553 
3554 4. A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED 
3555 ; THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=-1. 
3556 
3557 5. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS 
3558 3 CHECKED THAT TAPE STATUS ALERY TERMINATION OCCURS, WITH 
3559 ; EOT=1 AND TMKel1. 
3560 
3561 ; 6. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
3562 ; 1, IS ISSUED, AND IT IS CHECKED THAT TAPE STATUS ALERT 
3563 3 TERMINATION OCCURS, WITH EOT=1 AND TMK=1. 
3564 
3565 7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
3566 3 1, IS ISSUED, ANO IT IS CHECKED THAT NORMAL TERMINATION 
cee 3 OCCURS, WITH EOT=1. 

8 
3569 8. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
3570 ; 1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
aso 3 OCCURS, WITH EOT=1. 

2 
3573 9. A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED 
3574 ; THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 
3575 
3576 10. A READ FORWARD COMMAND IS ISSUED, AND IT IS CHECKED 
3577 ; THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 
3578 
3579 11. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
3580 : 3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
“345 ; OCCURS, WITH EOT=0. 

2 
3583 12. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
3584 ; 3. IS ISSUED, ANDO IT IS CHECKED THAT NORMAL TERMINATION 
cooe ; OCCURS, WITH EOT=1. 
3587 ; 13. A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, WHICH 
3588 ; SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT 
3589 ; TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=0, 
3590 ; BOT=1, AND RIB=-1. 
3591 3 
3592 ; 
3593 ; 
3594 ; 
3595 ;- 
3596 
3597 056072 T34_L00P: 


3598 ;¢ 


H15 
TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 
TEST 6: OPERATIONS AT EOT 


SEQ 1°3 


3599 : 
aoa ;TEST 6, SUBTEST 1 
3 

3602 ;VERIFIES THAT WRITING OVER THE END-OF -TAPE (CEOT) 

3603 sMARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE 

3604 ;TAPE TRANSPORT DOES NOT RECOGNIZE THE EOT MARKER, THE 

3605 ;TAPE WILL RUN OFF THE END OF THE REEL, CAUSING THE 

3606 ;PROGRAM SEQUENCE TO BE ABORTED WITH A FATAL ERROR 

3607 s INDICATION. IN THIS CASE, CORRECTIVE MAINTENANCE 

3608 sMUST BE PERFORMED USING THE TRANSPORT’S BUILT-IN 

3609 ;sMAINTENANCE ROUTINE AVAILIASLE VIA THE FRONT PANEL. 

3610 ;IF THE CONTROLLER OOES NOT RECOGNIZE THE EOT, THE 

3611 ; TRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF 

3612 ;THe END OF THE REEL BUT THE TRANSPORT MUST BE 

3613 ;MANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A 

3614 ;FATAL DIAGNOSTIC ERROR. 

3615 ; 

3616 ; 

3617 ; 

3618 ; 

3619 # 

3620 

3621 056072 BGNSUB 3 >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
056072 T6.1: 
056072 104402 TRAP Cs$BSUB8 

3622 056074 004737 063232 JSR PC, T3S4REST ;SET COMMAND PACKET 

3623 056100 004737 063 JSR PC, T34RTS sRESTORE PACKET 

3624 056104 004737 063324 JSR PC, T34RT2 ;SET UP OTHER COMMAND PACKET 

3625 056110 012737 176750 060674 MOV 965000. , TS40LY ;SET UP COUNTER 

3626 056116 004737 016054 10$: JSR PC,SOFINIT ;00 INITIALIZE ON CONTROLLER 

3627 056122 103433 BCS 20$ ;BR IF INIT WAS OK 

3628 056124 DELAY 250 ;DELAY A WHILE 
056124 012727 000250 MOV #250,(PC)+ 
056130 . WORD 0 
056132 013727 002116 MOV LSOLY,.CPC)- 
056136 . WORD 0 
056140 005367 177772 DEC -6(PC) 
056144 001375 BNE .-4 
056146 005367 177756 DEC -22(PC) 
056152 001367 BNE .-20 

3629 056154 016501 000002 MOV TSSRCRS),R1 ;GET TSSR STATUS 

3630 056160 032701 000200 BIT @SSR,R1 ;CHECK FOR SSR SET 

3631 056164 001012 BNE 20$ ;BR, WHEN SSR IS SET 

3632 056166 005337 060674 DEC T340LY ;BUMP COUNTER DOWN 

3633 056172 001351 BNE 10$ ;8R, IF MORE DELAY REQUIRED 

3634 056174 005237 002214 INC FATFLG s;ERROR COUNT 

3638 056200 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

3639 056202 ERRDF ERRNO, SF IERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
056202 104455 TRAP CsERDF 
056204 001131 . WORD 601 
056206 003646 . WORD SF IERR 
056210 012114 . WORD SF IMSG 

3640 056212 20%: CKLOOP ;LOOP IF SELECTED 
056212 104406 TRAP CSCcCLPl 

3641 056214 013737 002174 060560 MOV UNITN, T340SW ;SET UP DRIVE NUMBER 

3642 056222 052737 000040 060560 BIS BITS, T340SW ; TURN ON HIGH SPEED TO SAVE TIME 

3643 056230 012704 060540 MOV OTS4PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 
TEST 6: OPERATIONS AT EOT 


SEQ 164 


3644 056234 004737 010742 JSR PC ,WRTCHR ; ISSUE WRITE CHARACTERISTICS 

3645 056240 103407 BCS 30$ ;BR, IF COMMAND ISSUED OK 

3646 056242 005237 002214 INC FATFLG sERROR COUNT 

3650 056246 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3651 056250 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
056250 104456 TRAP CSERHRD 
056252 001152 -WORD 602 
056254 005052 -WORD WRITMSG 
056256 012114 -WORD SFIMSG 

3652 056260 30$; CKLOOP ;LOOP IF SELECTED 
056260 104406 TRAP CsCLPi 

3653 056262 004737 011074 JSR PC ,REWIND sREWINOD CALL 

3654 056266 105411 BCS 35$ ;BR, IF TSSR IS OK (GOOD) 

3655 056270 016501 000002 MOV TSSRCRS),R1 ;GET TSSR 

3656 056274 010004 MOV RO,R4 ;SET UP PACKET 

3657 056276 0052357 002214 INC FATFLG sERROR COUNT 

3661 056302 ERRHRD ERRNO, T354RWN,PKTSSR ;TSSR IS INCORRECT AFTER REWIND 
056302 104456 TRAP CSERHRD 
056304 001155 -WORD 605 
056306 062557 -WORDB T34RWN 
056310 012126 -WORD PKTSSR 

3662 056312 35$: CKLOOP ;LOOP IF SELECTED 
056312 104406 TRAP CsCLP1 

3663 056314 012737 140005 060660 MOV #140005, T34PK5 ;sWRITE DATA, ACK, CvC=1 

3664 056322 012703 176750 MOV #65000. ,R3S ;SET MAX NUMBER OF WRITES 

3665 056326 013737 003116 060662 MOV FREE , T354WB ;SET UP WRITE BUFFER ADDRESS 

3666 056334 012737 006654 060666 MOV #3500. , T34SZ ;SET UP BUFFER SIZE (4K BYTES) 

3667 056342 012704 060660 MOV OT34PK3,R4 ;R4 = POINTER TO PACKET 

3668 056346 010465 000000 40$: MOV R4,TSOBCRS) ; ISSUE COMMAND 

3669 056352 004737 016330 JSR PC ,WAITF ;WAIT FOR SSR TO SET 

3670 056356 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

3671 056362 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 

5672 056366 020102 CMP R1,R2 ;ARE THEY EQUAL 

3673 056370 001010 BNE 50$ ;BR, IT MIGHT BE END OF TAPE 

3674 056372 005303 DEC R3 ;DEC RECORD COUNTER 

3675 056374 001364 BNE 40$ ;BR, IF MORE TO GO 

3676 056376 005237 002214 INC FATFLG sERROR COUNT 

3680 056402 ERROF ERRNO, T34ET,PKTSSR sEOT NOT FOUND CUSE SHORTER TAPE?) 
056402 104455 TRAP CSERDF 
056404 001134 -WORD 604 
056406 062116 -WORD T34ET 
056410 012126 .WORD PKTSSR 

3681 056412 032701 000004 50$: BIT oBIT2,R1 ;CHECK FOR TAPE STATUS ALERT 

3682 056416 001001 BNE 60$ ;BR, IF SET 

3683 056420 000752 BR 40% ;KEEP GOING 

3684 056422 013701 060570 60$: MOV TS4BFR+6,R1 ;PICK UP XSTO 

3685 056426 010102 MOV R1,Re2 ;SET UP EXPECTED 

5686 056430 052702 000001 BIS oBITO,R2 ;SET THE EOT BIT ON IN EXPECTED 

3687 056434 020102 CMP R1,Re sWAS THE BIT ON 

3688 056436 001402 BEQ 80$ ;BR, IF EOT WAS FOUND 

3689 056440 000137 056346 JMP 40$ sKEEP LOOKING 

3690 056444 80$: CKLOOP ;LOOP IF SELECTED 
056444 104406 TRAP CsCiPl 

3691 056446 012737 140005 060660 MOV #140005, T34PKS5 ;sWRITE DATA, ACK, CvC=l 

3692 056454 013737 003116 060662 MOV FREE, T34W8 ;SET UP WRITE BUFFER ADDRESS 

3693 056462 012737 006654 060666 MOV #3500. ,134SZ ;SET UP BUFFER SIZE (4K BYTES) 

5694 056470 012704 060660 MOV @#T34PK3,R4 ;R4 = POINTER TO PACKET 


J15 
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3695 056474 010465 000000 MOV R4, TSOBCRS) s; ISSUE COMMAND 

3696 056500 004737 016330 JSR PC ,WAITF ;WAIT FOR SSR TO SET 

3697 056504 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

3698 056510 012702 100204 MOV @SC!SSR!BIT2,R2 ;SET UP EXPECTED 

3699 056514 020102 CMP R1,R2 ;ARE THEY EQUAL 

3700 056516 001406 BEQ 90$ ;BR, IF THEY ARE OK 

3701 056520 005237 002214 INC FATFLG ;ERROR COUNT 

3705 056524 ERRHRD ERRNO, T34ET2,PKTSSR ;WRITE TAPE AT EOT —_—— M SET TSA 
056524 104456 CSERHRD 
056526 001135 WORD 605 
056530 061367 . WORD T34ET2 
056532 012126 . WORD PKTSSR 

3706 056534 90$: CKLOOP ;LOOP IF SELECTED 
056534 104406 TRAP CS$CLPl1 

3707 056536 013701 060570 MOV T34BFR+6,R1 ;sPICK UP xSTO 

3708 056542 010102 MOV R1,R2 ;SET UP EXPECTED 

3709 056544 052702 000001 BIS eBITO,R2 ;SET THE EOT BIT ON IN EXPECTED 

3710 056550 020102 CMP R1,R2 ;WAS THE BIT ON 

3711 056552 001406 BEQ 100$ ;BR, IF pe WAS FOUND 

3712 056554 005237 002214 INC FATFLG RROR COUNT 

3716 056560 ERRHRD ERRNO, T34ETN,EXPREC ;EOT BIT’ CxSTO) NOT SET 
056560 104456 TRAP CSERHRD 
056562 001136 . WORD 606 
056564 061451 . WORD T34ETN 
056566 015554 . WORD EXPREC 

3717 056570 100$: CKLOOP ;LOOP IF SELECTED 
056570 104406 TRAP CSCLPl 

3718 056572 012737 140011 060660 MOV #140011, T34PK3 ;WRITE TAPE MARK, ACK, eve 1 COMMAND 

3719 056600 012704 060660 MOV @T34PK3,R4 ;R4 = POINTER TO PACKET 

3720 056604 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

3721 056610 004737 016330 JSR PC ,WAITF ;WAIT FOR SSR TO SET 

3722 056614 016501 000002 MOV TSSRCRS),R1L ;GET TSSR CONTENTS 

3723 056620 012702 100204 MOV @SC!SSR!BIT2,Re2 ;SET UP EXPECTED 

3724 056624 020102 CMP R1,R2 ;ARE THEY EQUAL 

3725 056626 001406 BEQ 110$ ;BR, IF pl. IS GOOD (OK) 

3726 056630 005237 002214 INC FATFLG RROR COUNT 

3730 056634 ERRHRD ERRNO, T34WTM,PKTSSR sEOT NOT FOUND CUSE SHORTER TAPE?) 
056634 104456 TRAP CSERHRD 
056636 001137 . WORD 607 
056640 061300 . WORD T34WT™ 
056642 012126 .WOPD PKTSSK 

3731 056644 110$: CKLOOP ;LOOP IF SELECTED 
056644 104406 TRAP CSCLPl 

3732 056646 013701 060570 MOV T34BFR+6,R1 ;PICK UP XSTO 

3733 056652 010102 MOV R1,R2 ;SET UP EXPECTED 

3734 056654 052702 000001 BIS oBITO,R2 ;SET THE EOT BIT ON IN EXPECTED 

3735 056660 020102 CMP R1,R2] ;WAS THE BIT ON 

3736 056662 001406 . BEQ 120$ ;BR, IF pH WAS FOUND 

3737 056664 005237 002214 INC FATFLG ERROR COUNT 

3741 056670 ERRHRD ERRNO, T34ETO,EXPREC ;EOT BIT. (xSTO) NOT SET 
056670 104456 TRAP CSERHRD 
056672 001140 . WORD 608 
056674 061002 . WORD T34ETO 
056676 015554 . WORD EXPREC 

3742 056700 120$: CKLOOP ;LOOP IF SELECTED 
056700 104406 TRAP CSCLPl 

3743 056702 012737 141410 060660 MOV #141410, T34PK2 ;SKIP TAPE MARK REVERSE ACK,CVC=1 COMMAND 


TEST 1 - HARDWARE TEST 
TEST 6: OPERATIONS AT EOT 


056710 
056716 


> 056722 


056726 


057062 
057070 
057074 
057100 
057104 
057110 
057114 
057116 
057120 
057124 
057124 
057126 
057130 
057132 


012737 


060714 
012126 


060570 
000001 


002214 


060570 
100000 


002214 


060660 
060662 


130$: 


140$: 


150$: 


1-8 TEST MACRO M1115 06-FEB-84 


K15 


18:04 


#1, 1T34WB 
@T34PK3,R4 
R4,TSOBCRS ) 
PC ,WAITF 
TSSRCRS),R1 
@SSR,R2 


LG 
ERRNO, T34STM,PKTSSR 


T34BFR+6,R1 


LG 
ERRNO, T34ETN,EXPREC 


T34BFR+6,R1 

R1,Re 

#BIT15,Re 

R1,R2 

150$ 

FATFLG 
ERRNO, T34 TMK ,EXPREC 


#140410, T34PKS5 
#1, T34WB 
OT34PK3,R4 
R4,TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 
@SC!SSR!IBIT2,Re 


LG 
ERRNO, T34P0S,PKTSSR 


SEQ 166 


;SET NUMBER (1) OF TMS TO SKIP 
3R4 = POINTER TO PACKET 

; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;sARE THEY EQUAL 

;BR, IF STATUS IS GOOD (OK) 


;ERROR COUNT 

;SKIP TAPE MARK REV. DION’T SET TSA 
TRAP CSERHRD 
. WORD 609 
. WORD T34STM 
. WORD PKTSSR 

;LOO0P IF SELECTED 
RAM CSCLP1 

;PICK UP XSTO 

;SET UP EXPECTED 

;SET THE EOT BIT ON IN EXPECTED 

;WAS THE BIT ON 

;BR, IF EOT WAS FOUND 

;ERROR COUNT 

;EOT BIT (XSTO) NOT SET 
TRAP CSERHRD 
. WORD 610 
. WORD T34ETN 
. WORD EXPREC 

;LOOP IF SELECTED 
TRAP CSCLP1 


;PICK UP xSTO 
;SET UP EXPECTED 
;SET THE TMK BIT ON IN EXPECTED 
;WAS THE BIT ON 
;BR, IF TMK WAS FOUND 

;ERROR COUNT 
;EOT BIT CXSTO) NOT SET 

TRAP CSERHRD 


-WORDB 611 
-WORD T34TMK 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLP1l 


;SPACE RECORDS REVERSE, ACK, CvC=1 CMD 
;SPACE ONE RECORD REVERSE 

;R4 = POINTER TO PACKET 

; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IT MIGHT BE END OF TAPE 


;ERROR COUNT 
;EOT NOT FOUND (USE SHORTER TAPE?) 
TRAP CSERHRD 
. WORD 612 
. WORD T34P0S 
WORD PKTSSR 


Lie 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 SEQ 167 
TEST 6: OPERATIONS Rt bof 

3794 057134 160$: CKLOOP ;LOOP IF SELECTED 
057134 104406 TRAP CSCLP1 

3795 057136 013701 060570 MOV T34BFR+6,R1 ;PICK UP xSTO 

3796 057142 010102 MOV R1,R2 ;SET UP EXPECTED 

3797 057144 052702 000001 BIS #BITO,R2 ;SET THE EOT BIT ON IN EXPECTED 

3798 057150 020102 CMP R1,R2 ;WAS THE BIT ON 

3799 057152 001406 BEQ 163$ ;8R, IF EOT WAS FOUND 

3800 057154 005237 002214 INC FATFLG ;ERROR COUNT 

3804 057160 ERRHRD ERRNO, T34ETN,EXPREC sEOT BIT (XSTO) NOT SET 
057160 104456 T CSERHRD 
057162 001145 -WORD 613 
057164 061451 .WORD T34ETN 
057166 015554 .WORD EXPREC 

3805 057170 163$: CKLOOP ;L00P IF SELECTED 
057170 104406 TRAP CSCLP1 

3806 057172 013701 060570 MOV T34BFR+6,R1 ;PICK UP xSTO 

3807 057176 010102 MOV R1,R2 ;SET UP EXPECTED 

3808 057209 042702 100000 BIC @BIT15,R2 ;CLEAR THE TMK BIT ON IN EXPECTED 

3809 057204 020102 CMP R1,R2 ;WAS THE BIT ON 

3810 057206 001406 BEQ 165$ ;BR, IF TMK WAS FOUND 

3811 057210 005237 002214 INC FATFLG ;ERROR COUNT 

3815 057214 ERRHRD ERRNO, T34TMK,EXPREC sEOT BIT CXSTO) NOT SET 
057214 104456 TRAP CSERHRD 
057216 001146 .WORD 614 
057220 061763 .WORD T34TMK 
057222 015554 .WORD EXPREC 

3816 057224 165$: CKLOOP ;LOOP IF SELECTED 
057224 104406 RAP ~—CSCLP1 

3817 057226 012737 140410 060660 MOV #140410, T34PK3 ;SPACE RECORDS REVERSE, ACK. CvC=1 CMD 

3818 057234 012737 000001 060662 MOV #1,734 ;SPACE ONE RECORD REVERSE 

3819 057242 012704 060660 MOV @T34PK3,R4 ;R4 = POINTER TO PACKET 

3820 057246 010465 000000 MOV R4, TSDOBCRS) ; ISSUE COMMAND 

3821 057252 004737 016330 JSR PC ,WAITF ;WAIT FOR SSR TO SET 

3822 057256 016501 000002 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 

3823 057262 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 

3824 057266 020102 CMP R1,R2 sARE THEY EQUAL 

3825 057270 001406 BEQ 167$ ;BR, IT MIGHT BE END OF TAPE 

3826 057272 005237 002214 INC FATFLG sERROR COUNT 

3830 057276 ERRHRD ERRNO, T34P0S,PKTSSR sEOT NOT FOUND (USE SHORTER TAPE?) 
057276 104456 CSERHRD 
057300 001147 TWORD 615 
057302 060714 .WORD T34P0S 
057304 012126 tf .WORD PKTSSR 

3831 057306 167%: | CKLOOP ;LOOP IF SELECTED 
057306 104406 TRAP CSCLP1 

3832 057310 013701 060570 MOV T34BFR+6,R1 ;PICK UP xSTO 

3833 057314 010102 MOV R1,R2 ;SET UP EXPECTED 

3834 057316 042702 000001 BIC @BITO,R2 ;CLEAR THE EOT BIT ON IN EXPECTED 

3835 057322 020102 CMP R1,R2 sWAS THE BIT OFF 

3836 057324 001400 BEQ 170$ ;B8R, IF EOT WAS FOUND 

3837 057326 170$: CKLOOP ;LOOP IF SELECTED 
057326 104406 RAP CSCLPL 

3838 057330 012737 140010 060660 MOV #140010, T34PK3 ;SPACE RECORDS FORWARD, AcK. CvC=1 

3839 057336 012737 000002 060662 MOV 02,1T34WB ;SPACE TwO RECORDS 

3840 057344 012704 060660 MOV @T34PK3,R4 RA = POINTER TO PACKET 

3841 057350 010465 000000 MOV R4,TSDBC(RS) ; ISSUE COMMAND 

3842 057354 004737 016330 JSR PC ,WAITF ;WAIT FOR SSR TO SET 
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TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 SEQ 168 
TEST 6: OPERATIONS AT EOT 

3843 057360 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

3844 057364 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 

3845 057370 020102 CMP R1,Re2 ;ARE THEY EQUAL 

3846 057372 001406 BEQ 190$ ;BR, IT MIGHT BE END OF TAPE 

3847 057374 005237 002214 INC FATFLG ;ERROR COUNT 

3851 057400 ERRHRD ERRNO, T34P0S,PKTSSR sEOT NOT FOUND CUSE SHORTER TAPE?) 
057400 104456 TRAP CSERHRD 
057402 001150 -WORDB 616 
057404 060714 -WORD T34P0S 
057406 012126 -WORD PKTSSR 

3852 057410 190$: CKLOOP ;LOOP IF SELECTED 
057410 104406 TRAP CsCLP1 

3853 057412 013701 060570 MOV T34BFR+6,R1 ;PICK UP XSTO 

3854 057416 010102 MOV R1,R2 ;SET UP EXPECTED 

3855 057420 052702 000001 BIS oBITO,R2 ;SET THE EOT BIT ON IN EXPECTED 

3856 057424 020102 CMP R1,Re ;WAS THE BIT ON 

3857 057426 001406 BEQ 200$ ;BR, IF EOT WAS FOUND 

3858 0574350" 005237 002214 INC FATFLG ;ERROR COUNT 

3862 057434 ERRHRD ERRNO, TS4ETS,EXPREC ;EOT BIT CXSTO) NOT SET 
057434 104456 TRAP CSERHRD 
057436 001151 .WORD 617 
057440 061550 -WORDB T34ETS 
057442 015554 . -WORD EXPREC 

3863 057444 200%: CKLOOP ;LOOP IF SELECTED 
057444 104406 TRAP CsCLP1 

3864 057446 012737 140401 060660 MOV #140401, T34PK3 sREAD REVERSE, ACK, CvC=1 

3865 057454 013737 003116 060662 MOV FREE, T354RB8 ;SET. UP WRITE BUFFER ADDRESS 

5866 057462 012704 060660 MOV @TS4PK3,R4 ;R4 = POINTER TO PACKET 

3867 057466 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

3868 057472 004737 016330 JSR PC ,WAILTF ;sWAIT FOR SSR TO SET 

3869 057476 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

3870 057502 012702 000200 MOV @SSR,Re2 ;SET UP EXPECTED 

3871 057506 020102 CMP R1,Re2 sARE THEY EQUAL 

3872 057510 001406 BEQ 205$ ;BR, ONLY SSR IS SET 

3873 057512 005237 002214 INC FATFLG sERROR COUNT 

3877 057516 ERRHRD ERRNO, T354RRE,PKTSSR ;EOT NOT FOUND CUSE SHORTER TAPE?) 
057516 104456 TRAP CSERHRD 
057520 001152 -WORD 618 
057522 061066 -WORD T34RRE 
057524 012126 -WORD PKTSSR 

3878 057526 205%: CKLOOP ;LOOP IF SELECTED 
057526 104406 TRAP CsCLP1l 

3879 057530 012737 140401 060660 MOV #140401, TS4PKS3 ;sREAD REVERSE, ACK, CVvC=1 

3880 057536 013737 003116 060662 MOV FREE, T34RB ;SET UP WRITE BUFFER ADDRESS 

3881 057544 012704 060660 MOV @T34PK3,R4 ;R4 = POINTER TO PACKET 

3882 057550 010465 000000 MOV R4,TSOBCRS) ; ISSUE COMMAND 

3883 057554 004737 016330 JSR PC ,WAITF ;sWAIT FOR SSR TO SET 

3884 057560 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

3885 057564 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 

3886 057570 020102 CMP R1,R2 ;ARE THEY EQUAL 

3887 057572 001406 BEQ 210% ;BR, IT MIGHT BE END OF TAPE 

3888 057574 005237" 002214 INC FATFLG ;ERROR COUNT 

3892 057600 ERRHRD ERRNO, T34RRE ,PKTSSR ;EQT NOT FOUND CUSE SHORTER TAPE?) 
057600 104456 TRAP CSERHRD 
057602 001153 .WORD 619 
057604 061066 -WORD T34RRE 
057606 012126 .WORD PKTSSR 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 O06-FEB-84 18:04 


SEQ 169 
TEST 6: OPERATIONS AT EOT 


3893 057610 210$: CKLOOP ;LOOP IF SELECTED 
057610 104406 TRAP CsCLP1 

3894 057612 012737 140001 060660 MOV #140001, T54PKS5 ;READ DATA, ACK, CvC-1 

3895 057620 013737 003116 060662 MOV FREE, T354R6 ;SET UP WRITE BUFFER ADDRESS 

3896 057626 012737 006654 060666 MOV #3500. ,1T34SZ ;SET UP BUFFER SIZE (4K BYTES) 

3897 057634 012704 060660 MOV @T3S4PK3,R4 ;R4 = POINTER TO PACKET 

3898 057640 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

3899 057644 004737 016330 JSR PC ,WAITF ;sWAIT FOR SSR TO SET 

3900 057650 016501 000002 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 

3901 057654 012702 000200 MOV @SSR ,Re ;SET UP EXPECTED 

3902 057660 020102 CMP R1,R2 ;ARE THEY EQUAL 

3903 057662 001406 BEQ 230$ ;BR, IT MIGHT BE END OF TAPE 

3904 057664 005237 002214 INC FATFLG ;ERROR COUNT 

3908 057670 ERRHRD ERRNO, T34RRE,PKTSSR ;EOT NOT FOUND CUSE SHORTER TAPE?) 
057670 104456 TRAP CSERHRD 
057672 001154 TWORO 620 
057674 061066 -WORD T34RRE 
057676 012126 -WORD PKTSSR 

3909 057700 230%: CKLOOP ;LOOP IF SELECTED 
057700 104406 TRAP CsCLP1 

3910 057702 012737 140001 060660 MOV #140001, T34PK5 ;READ DATA, ACK, CvC=l 

3911 057710 013737 003116 060662 MOV FREE, T54RB6 ;SET UP WRITE BUFFER ADDRESS 

3912 057716 012737 006654 060666 MOV #3500. , T34SZ ;SET UP BUFFER SIZE (4K BYTES) 

3913 057724 012704 060660 MOV OT34PK3,R4 ;R4 = POINTER TO PACKET 

3914 057730 010465 000000 MOV R4, TSOBCRS ) ; ISSUE COMMAND 

3915 057734 004737 0163530 JSR PC ,WAILTF ;WAIT FOR SSR TO SET 

3916 057740 016501 e MOV TSSR(RS),.R1 ;GET TSSR CONTENTS 

3917 057744 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 

3918 057750 020102 CMP R1,R2 ;ARE THEY EQUAL 

3919 057752 001406 BEQ 235% ;BR, IT ye dd BE END OF TAPE 

3920 057754 005237 0602214 INC FATFLG ;ERROR COUNT 

3924 057760 ERRHRD ERRNO, TS4RRE ,PKTSSR ;EQOT NOT FOUND (USE aay TAPE?) 
057760 104456 CSERHRD 
057762 001155 "WORD 621 
057764 061066 .WORD T34RRE 
057766 012126 .WORD PKTSSR 

3925 057770 235%: CKLOOP ;LOOP IF SELECTED 
057770 1044 TRAP CSsCLPl 

3926 057772 013701 060570 MOV TS4BFR+6,R1 ;PICK UP xSTO 

3927 057776 010102 MOV R1,Re2 ;SET UP EXPECTED 

3928 060000 052702 000001 BIS eBITO,R2 ;SET THE EOT BIT ON IN EXPECTED 

3929 060004 020102 CMP R1,R2 ;WAS THE BIT ON 

3930 0600C& 001406 BEG 240% ;BR, IF EOT WAS FOUND 

3931 060010 005237 002214 INC FATFLG ;ERROR COUNT 

5935 060014 ERRHRD ERRNO, TS4ETZ,EXPREC ;EQT BIT (XSTO) NOT SET 
060014 104456 TRAP CSERHRD 
060016 001156 -WORD 622 
060020 061622 -WORD T34ETZ 
060022 015554 -WORD EXPREC 

3936 060024 2403: CKL OOP ;LOOP IF SELECTED 
060024 104406 TRAP CsCLPl 

3937 060026 012737 140410 060660 MOV #140410, T34PK5 ;SPACE RECOROS REVERSE, ACK, CvC*=1 CMD. 

3938 060034 012737 000005 060662 MOV 05, 134R6 ;NUMBER OF RECORDS TO SPACE 

3939 060042 012704 06066C MOV @TS4PK3,R4 ;Ra = POINTER TO PACKET 

3940 060046 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

3941 060052 004737 016330 JSR PC ,.WAITF ;WAIT FOR SSR TO SET 

5942 060056 016501 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
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TEST 1 - MAROWARE TEST 1-8 TEST MACRO M1115 06-FEB-84 18:04 SEQ 170 
TEST 6: OPERATIONS AT EOT 

3943 060062 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 

3944 060066 020102 CMP R1,R2 sARE THEY EQUAL 

3945S 060070 001406 BEQ 250% sBR, IT TERRO BE END OF TAPE 

3946 060072 0052357 002214 INC FATFLG RROR COUNT 

3950 060076 ERRHRD ERRNO, T34P0S,PKTSSR \POSITION. COMMANDO DIDN'T — 
060076 104456 CSERHRO 
060100 001157 TWORO 625 
060102 060714 -WORD T34P0S 
060104 012126 -WORD PKTSSR 

3951 060106 2508: CKLOOP sLOOP IF SELECTED 
060106 104406 TRAP CSCLPi 

3952 060110 013701 060570 MOV T34BFR+6,R1 sPICK UP XSTO 

3953 060114 010102 MOV R1,Re2 sSET UP EXPECTED 

3954 060116 042702 000001 BIC oBITO,R2 sCLEAR THE EOT BIT ON IN EXPECTED 

3955 060122 020102 CMP R1,R2 sWAS THE BIT ON 

3956 060124 001406 BEQ 260% sBR, IF EOT WAS FOUND 

3957 060126 005257 002214 INC FATFLG sERROR COUNT 

3961 0601352 ERRHRD ERRNO, T34ETC,EXPREC sEOT BIT (XSTO) NOT CLEAR 
0601352 104456 TRAP C SERHRD 
060134 001160 -WORD 624 
060136 061157 -WORD TS34ETC 
060140 015554 -WORD EXPREC 

3962 060142 2608: CKLOOP sLOOP IF SELECTED 
060142 104406 TRAP CsCLP1 

3963 060144 012737 140010 060660 MOV #140010, T54PK3 sSPACE RECORDS FORWARD, ACK, CvC*l CMD. 

3964 060152 012737 000005 060662 MOV 05, T34R6 sNUMBER OF RECORDS TO SPACE 

3965 060160 012704 060660 MOV @TS4PKS,R4 sR4 = POINTER TO PACKET 

3966 060164 010465 900000 MOV R4,TSOBCRS) s ISSUE COMMAND 

3967 060170 004737 016330 JSR PC ,WAITF sWAIT FOR SSR TO SET 

3968 060174 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

3969 060200 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 

3970 060204 020102 CMP R1,Re2 sARE THEY EQUAL 

3971 060206 001406 BEQ 270% ;BR, IT MIGHT BE END OF TAPE 

3972 060210 005237 002214 INC FATFLG sERROR COUNT 

3976 060214 ERRHRD ERRNO, T54ET ,PKTSSR 3TSSR NOT CORRECT 
060214 104456 TRAP CSERHRO 
060216 001161 .WORD 625 
060220 062116 . WORD T34ET 
060222 012126 .WORD PKTSSR 

3977 060224 2708: CKLOOP ;LOOP IF SELECTED 
060224 1044 TRAP CsCiP 1. 

3978 060226 013701 060570 MOV T34BFR+6,R1 sPICK UP XSTO / 

3979 060232 010102 MOV R1,Re sSET UP EXPECTED 

5980 060234 052702 000001 BIS OBITO,R2 sSET THE EOT BIT ON IN EXPECTED 

3981 060240 020102 CMP R1,R2 sWAS THE BIT ON 

3982 060242 001400 BEQ 280% sBR, IF EOT WAS FOUND 

3983 060244 2608: CKLOOP sLOOP IF SELECTED 
060244 104406 TRAP CSsCLPlL 

3984 060246 012737 141410 060660 MOV 0141410, T54PK5 sSKIP FILE MARKS REVERSE ,ACK,CvC*1 COMMAND 

3985 060254 012737 000003 060662 MOV 03, 1354RB sNUMBER OF FILE MARKS 

3986 060262 012704 060660 MOV OTS4PK3,R4 sR4 © POINTER TO PACKET 

3987 060266 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 

3988 060272 012737 176750 060674 MOV 065000. ,T34DL1 sSET UP DELAY COUNTER 

3989 060300 004737 016330 2853: JSR PC ,WAITF sWAIT FOR SSR TO SET 

3990 0603504 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

3991 060310 032701 000200 BIT OSSR,R1 sCHECK FOR SSR SET 

3992 0603514 001017 BNE 286% sB8R, WHEN SSR IS SET 


3993 


060316 
060316 


012727 
000000 
0135727 
000000 


000250 
002116 
177772 
177756 
0606 74 
000200 


002214 


002214 
017262 
016556 


000017 


2868: 


2908: 


3008: 


3208: 
600$: 


999%: 


DELAY 
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250 


R 
FATFLG 
ERRNO, T34ET,PKTSSR 


eBrIT2,R1 
T34BFR+6,R1 


FATFLG 
ERRNO, TS4ETC,EXPREC 


FATFLG 
ERRNO, TS4B0T ,EXPREC 


FATFLG, O15. 
999% 
PC ,CKDROP 


PC, TSTLOOP 


SE@ 171 

sWAIT ABOUT .25 SECONDS | 
MOV 0250 ,(PC)> 
-WORD O 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

sBUMP COUNTER 

;BR, IF MORE TO COUNT 


;6R, IT MIGHT BE END OF TAPE 
sDEC RECORD COUNTER 


sERROR COUNT 
;EQOT NOT FOUND CUSE SHORTER TAPE?) 


TRAP C SERHRD 
-WORD 626 
-WORD IT34ET 
-WORD PKTSSR 

sCHECK FOR TAPE STATUS ALERT 

sPICK UP XSTO 

sSET UP EXPECTED 

;CLEAR THE EOT BIT IN EXPECTED 

sWAS THE BIT ON 

;BR, IF EOT WAS FOUND 

sERROR COUNT 

sEOT BIT (XSTO) NOT CLEAR 
TRAP CSERHROD 
.WORD 627 
-WORD I[T34ETC 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CSCLPi 

sPICK UP XSTO | 

;SET UP EXPECTED 

;SET THE BOT BIT ON IN EXPECTED 

;WAS THE BIT ON 

:BR, IF BOT WAS FOUND 

sERROR COUNT 

sEOT BIT CXSTO) NOT CLEAR 
TRAP CSERHRD 
-WORD 628 
.WORD T3480T 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CSCLPl 

3>>>>>>>>>>>2> END SUBTEST >>>>>>>>>>>> 

L1006e: 

TRAP CsESUB 


sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 


4035 
4036 
4037 


060520 
060522 
060526 
060526 
060530 


103002 
0001357 


104432 
002662 


060540 


100004 
060550 
000000 


000010 
060562 
000000 
000012 
000000 
000000 


056072 
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BCC 163% 
JMP T34L00P 
163%: EXIT TST 


3° 
sLOCAL STORAGE FOR THIS TEST 
* 


~*<,e10>€177770 
T34PACKET: 

. WORD 100004 

. WORD T34DATA 

. WORD 0 

. WORD 8. 
T34DATA: 

. WORD T34BFR 

. WORD 0 

. WORD 10. 

. WORD 0 
T340SW: .WORD ) 


T34BFR: .BLKW 25. 
‘ 
;sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
. 
~*¢,°10>€177770 


T34PKe: 
. 100006 
. WORD T34BF 2 
. WORD 0 
. WORD 6. 
T34PKS3; 
. WORD 100005 
T34RB: 
T34WB: .WORD 0 
. WORD 0 
T34SZ: .WORD @) 
.EVEN 
8 
T34RSZ: .WORD 0 
T34CNT: .WORD 0 
TS40LY: .WORD 
: 
; 
T346F 2: 
T34BS0: .BYTE 10 
T34BS1: .BYTE 200 
T34S2: .WORD 8) 
T34S3: .WORD @) 


EVEN 
;TAPE MOTION PACKET COMMAND VALUES 


T34WD: .WORD 100005 
T34WOR: .WORD 100405 
T34CON: .WORD 102005 


SEQ 172 


s6R, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP 
. WORD 


CsEexIT 
L10061-. 


sCOMMAND PACIYET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


;sSELECT ORIVE O 
;MESSAGE BUFFER 


;sWRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


;SIZE OF DATA PACKET 


;sWRITE COMMAND, AND ACK 
sADDRESS OF WRITE/READ BUFFER 
sSIZE OF BUFFER CEXTENT) 


;LARGEST TAPE RECORD IN BYTES 
; TAPE RECORD COUNTER 
sDELAY COUNTER 


;BSELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 
:DATA AREA 


;sWRITE DATA (NEXT) 
;sWRITE DATA RETRY 
sWRITE CONTINOUS 
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TEST 6: OPERATIONS AT EOT 
4097 060712 177777 . WORD 177777 sEND OF DATA 
4098 ;? 
4099 ;LOCAL TEXT MESSAGES FOR TEST 
4101 r 
i 
4102 060714 124 123 123 T34PO0S: .ASCIZ ‘TSSR Incorrect After Position (SPACE RECORDS) Command’ 
4103 061002 127 122 111 T34ETO: .ASCIZ ‘WRITE TAPE MARK At EOT Failed To Set EOT Bit (xSTO)’ 
4104 061066 122 105 101 TS34RRE: .ASCIZ ‘READ Command At EOT Didn’''t Give Normal Termination (TSSR)’ 
4105 061157 125 156 141 TS4ETC: .ASCIZ ‘Unable To Clear EOT Indication, (xXSTO) Bit O' 
4106 061234 122 105 127 T34B0T: .ASCIZ ‘REWIND Faeiled To Set BOT (XSTO) Bit’ 
4107 061300 127 122 111 T34WTM: .ASCIZ ‘WRITE TAPE MARK At EOT Failed To Set Tape Status Alert’ 
4108 061367 127 lee 111 TS34ET2: .ASCIZ ‘WRITE DATA At EOT Failed To Set Tape Status Alert’ 
4109 061451 127 122 111 T34ETN: .ASCIZ ‘WRITE DATA At EOT Failed To Set EOT Bit (XSTO)’ 
4110 061530 123 120 101 TS34ETS: .ASCIZ ‘SPACE RECORDS FORWARD At EOT Failed To Set EOT Bit (xSTO)’ 
4111 061622 122 105 101 TS4ETZ: .ASCIZ ‘READ DATA At EOT Feiled To Set EOT Bit (XSTO)’ 
4112 061700 124 123 123 TS4STM: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK REVERSE At EOT’ 
4113 061763 120 117 123 TS4TMK: .ASCIZ ‘POSITION Command At EOT Onto Tape Mark Failed To Set TMK (xSTO)’ 
4114 062063 127 122 111 T34SSR ASCIZ ‘WRITE Command Not Accepted’ 
4115 062116 105 117 124 T34ET: ASCIZ ‘EOT Not Found In 65000 3.5K Writes, (Use Shorter Tape)’ 
4116 062205 127 122 111 TS34EOT: .ASCIZ ‘WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
4117 062263 124 123 123 T34TM ASCIZ ‘TSSR Not Correct After WRITE Command Re ject’ 
4118 062337 122 145 167 T34RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
4119 062406 122 101 115 T34RNC: .ASCIZ ‘RAM Error, Correct Date Patter: Not In Ram’ 
4120 062461 124 123 123 TS34AM3: .ASCIZ ‘TSSR Init. Failed After WRITE Comnand’ 
4121 062527 104 162 151 T340FL: .ASCIZ ‘Drive 7 Select Failed To Set "“OFL” In TSSR’ 
4122 062602 124 123 123 T34WO0: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command, SWB Bit Set’ 
4123 062671 124 123 123 T34WOC: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command, Check For Tape Offline’ 
4124 062773 103 126 103 TS34VCK: .ASCIZ ‘CVC Set, Didn'’'t Reset VCK In Message Buffer’ 
4125 063046 124 123 102 T34BA: ASCIZ ‘TSBA Not Correct After WRITE DATA Command’ 
4126 063120 127 122 111 T34wWSS ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
4127 063207 117 160 145 TST34ID: -ASCIZ ‘Operations At EOT’ 
4128 .EVEN 
4129 3° 
4130 ; 
4131 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
stat ;WRITE SUBSYSTEM MEMORY COMMAND 
3 
4134 ;- 
4135 
4136 063232 T34REST: 
4137 063232 SAVREG ;SAVE THE REGISTERS 
4138 063236 012701 060540 MOV @T34PACKET,R1 ;START OF THE PACKET 
4139 063242 012721 100004 MOV #100004 ,(R1)> ;WRITE SUBSYSTEM MEM. WITH ACK 
4140 063246 012721 060550 MOV OT3S4DATA,(R1)-> sADDORESS OF CHARAISTICS DATA BLOCK 
4141 063252 005021 CLR C(R1)-> sEXTENDED ADDRESS 
4142 063254 012721 000012 MOV #10. ,CR1)> ;SIZE OF DATA BLOCK IN BYTES 
4143 063260 012721 060562 MOV OT34BFR,(R1)> s;ADDRESS OF MESSAGE BUFFER 
4144 063264 005021 CLR (R1)> 
4145 063266 012721 000024 MOV @20.,(R1)> ;LENGTH OF MESSAGE BUFFER 
4146 063272 005021 CLR R1)- 
4147 063274 012711 000000 MOV #0,(R1) ;SELECT DRIVE ZERO 
4148 063300 012702 000030 MOV 924, ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
4149 063304 012762 177777 060562 64%: MOV 0177777, TS4BFR(R2) ;ALL ONES TO MESSAGE BUFFER 
4150 063312 005742 TST -(R2) ;BUMP DOWN TO NEXT LOCATION 
4151 063314 020227 000000 CMP R2, 00 ;R2 AT ZERO YET 
4152 063320 001371 BNE 64% ;KEEP GOING UNTIL DONE 
4153 063322 000207 RTS PC ;RE TURN 


TEST 1 - HARDWARE TEST 
TEST 6: OPERATIONS AT 


012701 
012721 


012721 


012737 


060660 
100005 


006354 
073155 
016570 
000005 
067556 


002172 


002210 


T34RTe: 


T34RTS: 


ee @¢ ee oe G2 Ge Ge Ge Ge Ge Ge GF GF Ge Ge Ge Ge Ge 
> 


3° 
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OT3S4PK2,R1 


F 14 


#100006 ,(R1)+ 
OT3S4BF2,(CR1)> 


OT34PK3,R1 


#100005, (R1)-> 


CR1)-> 
(R1)> 
C(R1) 
PC 


SEQ 174 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK 
sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


;RETURN 


;SAVE THE REGISTERS 

;START OF THE PACKET 

;sWRITE TAPE. WITH ACK 

sADORESS OF DATA BLOCK 

;EXTENDED ADDRESS 

;SIZE OF DATA BLOCK 
;RE TURN 


L10061: 


TRAP CsETstT 


TEST 7: EXTENDED MODE FEATURES 


THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 


THE CONTROLLER IS IN THE EXTENDED FEATURES MODE. 


ARE: 


BGNTST 


THESE COMMANDOS 


REWIND WITH IMMEDIATE INTERRUPT 


IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 


#EPRT1,EPRTSW 
@TST3SIO,RO 
PC, TSTSETUP 


@S ,LOOPCNT 


T3SCNT 


3 
;TEST 7, SUBTEST 1 


VERIFIES THAT A REWIND WITH IMMEDIATE INTERRUPT COMMAND, 


THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 


T7:: 
s;PRIMARY ERROR MESSAGE 
sASCII MESSAGE TO IDENTIFY TEST 
;00 INITIAL TEST SETUP 
;PERFORM S ITERATIONS 
;CLEAR TAPE RECORD COUNTER 


ISSUED 


WITH THE INTERRUPT EPABLE (IE) BIT CLEAR (0), CAUSES ALMOST 


G14 


7, CRTEMDED Ms 1-8 repes MACRO M1113 O06-FEB-84 18:04 


012727 
000000 
013727 
000000 


016501 


002116 
177772 
177756 
067542 
002214 


002174 
067370 
010742 


002214 


011074 


000002 


T35LOOP : 


067542 
10$: 


067410 20%: 


25%: 


IMMEDIATE TERMINATION BUT NO INTERRUPT. 


SEQ 175 


STATUS IN THE MESSAGE 


BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 


BGNSUB 

JSR PC, T3SREST 

CLR INTRECV 

JSR PC, T3SRT2 

JSR PC,T3SRT3 

MOV #65000. , TSSOLY 
CLR T3SCNT 

JSR PC ,SOF INIT 

BCS 20$ 

DELAY 250 

DEC T350LY 

BNE 10$ 

INC FATFLG 

MOV RO,R1 

ERRDF ERRNO, SF IERR,SFIMSG 
MOV UNITN, T350SW 
MOV @TSSPACKET ,R4 
JSR PC,WRICHR 

BCS 25$ 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO,WRITMSG, SF IMSG 
CKLOOP 

JSR PC ,REWIND 

BCS 30$ 

MOV RO,R4 

MOV TSSRCRS),R1 


3 >>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T7.1: 


TRAP CsBSUB8 

;SET COMMAND PACKET 

;CLEAR INTERRUPT RECETVED FLAG 

;SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

;SET UP DELAY COUNTER 

;CLEAR COUNTER 

;00 INITIALIZE ON CONTROLLER 

;8R IF INIT WAS OK 

;DELAY ABOUT .25 SEC 
MOV @250,(PC)>+ 
. WORD 0 
MOV LSOLY,CPC)->+ 
. WORD 0 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

;BUMP COUNTER 

;8R, IF COUNTER NOT DONE 

s;ERROR COUNT 

;CONTENTS OF TSSR REGISTER 

;sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
. WORD 701 
. WORD SF IERR 
WORD SF IMSG 


;SET UP ORIVE NUMBER 
; SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sERROR COUNT 
; SAVE CONTENTS OF TSSR 
;sWRITE CHARACTERISTISC FAILED 


TRAP C$cRHRD 
. WORD 702 

. WORD WRTMSG 
. WORD SF IMSG 


;LOOP IF SELECTED 


TR 
;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
;SET UP REWIND PACKET ADDRESS 
;GET TSSR FOR PRINTOUT 


CsCLPl 


H14 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 SEQ 176 
TEST 7: EXTENDED MODE FEATURES 
4256 063636 005237 002214 INC FATFLG sERROR COUNT 
4260 063642 ERRHRD ERRNO, TSSRWN,PKTSSR ;sREWIND NOT ACCEPTED 
063642 104456 TRAP CSERHRO 
063644 001277 . WORD 703 
063646 070644 . WORD T35RWN 
063650 012126 -WORD PKTSSR 
4261 0635652 30$; CKLOOP ;LOOP IF SELECTED 
063652 104406 TRAP CS$CLPi 
4262 063654 015701 067420 MOV T35BFR+6,R1 ;PICK UP XSTO 
42635 063660 010102 MOV R1,R2 ;SET UP EXPECTED 
4264 063662 052702 000002 BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 
4265 063666 020102 CMP R1,R2 ;D0ES EXP = REC'D 
4266 063670 001406 BEQ 40$ ;BR, IF EQUAL (OK) 
4267 063672 005237 002214 INC FATFLG ;ERROR COUNT 
4271 063676 ERRHRD ERRNO, T35B0T ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
063676 104456 TRAP CSERHRD 
063700 001300 . WORD 704 
063702 070340 . WORD T35B0T 
063704 015554 -WORD EXPREC 
4272 063706 40$: CKLOOP ;LOOP IF SELECTED 
063706 104406 TRAP CSCLPl 
4273 063710 012703 000024 MOV @20.,R3 ;sNUMBER OF RECORDS 
4274 063714 012737 000400 067516 MOV 0256. ,T35SZ ;SET UP RECORD SIZE 
ry Se 063722 013737 003116 067512 MOV FREE, T35wB ;ADDRESS OF WRITE BUFFER 
4277 fs SOSAEHAEASEASHAEASEEREAEEHEEESOERESEEHEOE 
4278 5 
ry be ;sWRITE DATA,ACK,CVC=1 COMMAND 
; 
acne 5 POREEEEEEEEEEEEESEEEEEESEEEEEEEEDEEDEEESE 
4283 063730 012737 140005 067510 MOV #140005, T3S5PK3 ;sWRITE DATA,ACK,CVC=1 COMMAND 
4284 063736 012704 067510 MOV @T3SSPK3,R4 ;SET UP R4 WITH PACKE! ADORESS 
4285 06374. 010465 50$: MOV R4,TSOBCRS) ; ISSUE COMMAND 
4286 063746 004737 016330 JSR PC ,WAITF ;WAIT FOR SSR TO SET 
4287 063752 016501 2 MOV TSSR(RS), R1 ;GET TSSR CONTENTS 
4288 063756 012702 000200 MOV @SSR ,Re ;SET UP EXPECTED 
4289 063762 020102 CMP R1,R2 sARE THEY EQUAL 
4290 063764 001406 BEQ 60$ ;BR, IF ": 
4291 063766 005237 002214 INC FATFLG ERROR COUNT 
4295 063772 ERRHRD ERRNO, TSSWOE,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
063772 104456 TRAP CSERHRD 
063774 001301 . WORD 705 
063776 070266 . WORD TSSWOE 
064000 012126 .WORD PKTSSR 
4296 064002 60%: CKLOOP ;LOOP IF SELECTED 
064002 104406 TRAP CsCLPl 
4297 064004 005303 DEC R3 ;BUMP RECORD COUNTER 
ry he 064006 001355 BNE 50$ ;BR, IF MORE RRECORDS TO COUNT 
ouee OREO EEEEEEEEEEEEEEAEEEEEEEEEEEEEEDSE 
1 ; 
an ;sWAIT FOR TAPE TO STOP ALL MOTION 
‘ 
“oe SAPAAEAEAAEAAEEEEEEOEEEEESEEEEEAEDEEEEEES 
430 
4306 064010 012737 000012 067542 MOV #10.,T35DLY ;SET UP DELAY COUNTER 


114 


TEST 1 - HARDWARE TEST } > 8 TEST MACRO M1113 06-FEB-84 18:04 SEQ 177 
TEST 7: EXTENDED MODE FEATURES 

4307 064016 70$: DELAY 250 sWAIT ABOUT .25 SEC 
064016 O12727 000250 MOV #250,CPC)-> 
064022 000000 -WORD 0O 
064024 013727 002116 MOV LSOLY,(PC)>+ 
064030 -WORD 0O 
064032 005367 177772 DEC —oes 
064036 001375 BNE 
064040 005367 177756 DEC “2acc) 
064044 001367 BNE -20 

4308 064046 005337 067542 DEC TS3SOLY ;BUMP COUNTER DOWN 

4309 064052 001361 BNE 70$ ;BR, IF MORE TO DELAY 

4310 064054 005737 002220 TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 

4311 064060 001042 BNE 110$ ;BR IF SWITCH IS ON 

4312 064062 112737 000200 067521 MOVB 6200, T358S1 ;sWRITE MISCELLANEOUS CONT/READ STATUS 

4313 064070 112737 000010 067520 MOVB #10, T358S0 sFUNCTION SELECTION BIT C TURN ON EXTFEA HW SWITCH) 

4314 064076 012704 067500 MOV @TSSPK2 ,R4 ;sWRITE SUBSYS MEM PACKET 

4315 064102 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

4316 064106 004737 016416 JSR PC ,.CHKTSSR ;WAIT FOR SSR 

4317 064112 103407 BCS 90$ ;BR, IF NO ERROR 

4318 064114 010001 MOV RO,R1 ;ERROR, SAVE TSSR 

4319 064116 005237 002214 INC FATFLG ;ERROR COUNT 

4323 064122 ERRHRD ERRNO, T35SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
064122 104456 TRAP CSERHRD 
064124 001302 . WORD 706 
064126 072422 . WORD T3SSSR 
064130 012126 -WORD PKTSSR 

4324 064132 90$: CKLOOP ;LOOP IF SELECTED 
064132 104406 TRAP CSCLP1 

4325 064134 012704 067370 MOV @TSSPACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 

4326 064140 004737 010742 JSR PC ,WRICHR ; ISSUE WRITE CHARACTERISTICS 

4327 064144 103407 BCS 100$ ;BR, IF COMMAND ISSUED OK 

4328 064146 005237 002214 INC FATFLG ;ERROR COUNT 

4332 064152 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4333 064154 ERRHRD ERRNO,WRTMSG, SF IMSG ;sWRITE CHARACTERISTISC FAILED 
064154 104456 TRAP CSERHRO 
064156 001303 . WORD 707 
064160 005052 -WORD WRIMSG 
064162 012114 . WORD SF IMSG 

4334 064164 100$: CKLOOP ;SCOPE LOOP 
064164 104406 TRAP CsCLPl 

4335 064166 012737 176750 067542 110%: MOV #65000. , T3501 ¥ ;SET UP DELAY COUNTER 

rp 064174 005037 067536 CLR T3SCNT ;DELAY COUNTER 

rete AROSE EAAEESEHEREEEEEEEEESEEREEEEEEEEESE 

3 
anal ;sREWIND IMED. INTERRUPT,ACK,CvC*#1,IE=0 COMMAND 
? 

anae PHA AEHESEREEEHEEEHEDEHEDESEESHEEHEEEEEEDE 

4344 064200 012737 142012 067510 MOV #142012, T35PK3 sREWIND IMED. INTERRUPT ,ACK,CvC=1,IE=0 COMMAND 

4345 064206 012704 067510 MOV OTSSPK3,R4 ;SET UP R4&4 WITH PACKET ADDRESS 

4346 064212 010465 000000 MOV R4,TSOBCRS) ; ISSUE COMMAND 

4347 064216 016501 000002 120%: MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

4348 064222 032701 000200 BIT @SSR,R1 ;CHECK FOR SSR SET 

4349 064226 001021 BNE 130% ;6R, WHEN SSR IS SET 

4350 064230 005237 067536 INC TSSCNT ;BUMP THE CYCLE COUNTER 

4351 064234 DELAY 1 ;sDELAY TO KEEP COUNTER DOWN 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 O06-FEB-84 18:04 
TEST 7: EXTENDED MODE FEATURES 


SEQ 178 


064234 012727 000001 MOV #1,(PC)+ 
064240 -WORD O 
064242 015727 002116 MOV L$OLY,(PC)>+ 
064246 -WORD O 
064250 005367 177772 DEC —~ 
064254 001575 BNE 
064256 005367 177756 DEC “2acc) 
064262 001567 BNE -20 

4352 064264 005337 067542 DEC TSSOLY ;DROP DEAD TIMER BUMP DOWN 

4353 064270 001352 BNE 120$ ;BR, IF MORE TIME TO GO 

4354 064272 012702 000200 130$:;: MOV @SSR ,R2 ;SET UP EXPECTED 

4355 064276 020102 CMP R1,R2 ;ARE THEY EQUAL 

4356 0643500 001406 BEQ 140$ ;BR, IF OK 

4357 064302 005237 002214 INC FATFLG ;ERROR COUNT 

4361 064306 ERRHRD ERRNO, TSSRWE,PKTSSR ;TSSR INCORRECT AFTER «> DATA 
064306 104456 TRAP CSERHRD 
064310 001304 -WORD 708 
064312 072770 -WORD T3SRWE 
064314 012126 -WORD PKTSSR 

4362 064316 140$: CKLOOP ;LOOP IF SELECTED 
064316 104406 TRAP CSCLP1 

4363 064320 005737 002216 TST INTRECV ;CHECK FOR INTERRUPTS 

4364 064324 001410 BEQ 150$ ;BR, IF NO INTERRUPTS DETECTED 

4365 064326 016501 000002 MOV TSSRCRS),R1 ;GET TSSR STATUS FOR PRINTOUT 

4366 064332 005237 002214 INC FATFLG ;ERROR COUNT 

4370 064336 ERRHRD ERRNO, TSSINT,PKTSSR ; INTERRUPT RECEIVED ated 
064336 104456 TRAP CSERHRD 
064340 001305 -WORD 709 
064342 072601 -WORD TS3SINT 
064344 012126 -WORD PKTSSR 

4371 064346 150$: CKLOOP ;LOOP IF SELECTED 

asre 064346 104406 TRAP CS$CLPl 

ates eerTrTiT Titi tt ritrititittitittititttitittt. 

4 ; 
me de ;NOW CHECK FOR THE MOTION BITS SET 
: 

rt 14 5 PORAEEEEEAESEAEEAEEEEEDAEEAEEEEEEEEEDEES 

4379 064350 013701 067420 MOV T35BFR+6,R1 ;PICK UP xXSTO 

4380 064354 010102 MOV R1,Re ;SET UP EXPECTED 

4381 064356 052702 000200 BIS oBIT7,Re ;SET MOT BIT IN EXPECTED 

4382 064362 020102 CMP R1,R2 ;D0ES EXP = REC'D 

4383 064364 001406 BEQ 160$ ;BR, IF EQUAL (OK) 

4384 064366 005237 002214 INC FATFLG ;ERROR COUNT 

4388 064372 ERRHRD ERRNO, T35SMOT,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
064372 104456 TRAP CSERWRD 
064374 001306 . WORD 710 
064376 072503 .WORD T3SMOT 
064400 015554 -WORD EXPREC 

4389 064402 160$: CKLOOP ;LOOP IF SELECTED 
064402 104406 TRAP CSCLPl 

4390 064404 013701 067424 MOV T35BFR+12,R1 ;PICK UP xSTe2 

4391 064410 010102 MOV R1,R2 ;SET UP EXPECTED 

4392 064412 052702 100000 BIS #BIT15,Re2 ;SET OPM BIT IN EXPECTED 

4393 064416 020102 CMP R1,R2 ;D0ES EXP = REC'D 

4394 064420 001406 BEQ 170$ ;BR, IF EQUAL (OK) 


TEST 


1 - HARDWARE TEST 


TEST 7: EXTENDED MODE 


4395 
4399 


4400 


4401 
4402 


005237 


104456 
001307 
072672 
015554 


104406 
012737 


012727 
000000 
013727 
000000 


005367 
001375 
005367 
0013567 
005337 
001361 


104403 
023727 
103402 
004737 


002214 


000027 
000250 
002116 
177772 
177756 
067542 


002214 
017262 


067542 


000017 


170$: 


175$: 


9995: 


oo 
ad 


;TEST 7: 


10$: 


K14 


1-8 TEST MACRO M1113 06-FEB-84 18:04 
FEATURES 


INC FATFLG 

ERRHRD ERRNO, TS50PM,EXPREC 

CKLOOP 

MOV 023.,T35DLY 

DELAY 250 

DEC T3SOLY 

BNE 175$ 

ENDSUB 

CMP FATFLG,@15. 

BLO 999% 

JSR PC ,CKDROP 
SUBTEST 2 


SEQ 179 
s;ERROR COUNT 
;0PM BIT NOT SET 
TRAP 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 
;SET UP DELAY COUNTER 
;START DELAY 
MOV 
. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 
;BUMP DELAY COUNTER 
;B8R, If MORE DELAY 
L10064: 
TRAP 


;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


WITH THE INTERRUPT ENABLE (IE) BIT SET (1), CAUSES ALMOST 


IMMEDIATE TERMINATION AND AN INTERRUPT. 


STATUS IN THE MESSAGE 


CSERHRD 
711 
T3S50PM 
EXPREC 


CSCLP1 


— 
eee 


CSESUB 


BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 


BGNSUB 


SETPRI 


#PRIOO 


PC, T3SREST 
INTRECV 

PC, T3SRT2} 

PC, T3SRTS 
#65000. , TSSDLY 
TSSCNT 
PC,SOFINIT 

20$ 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T7.2: 


TRAP 


MOV 
TRAP 


;ENABLE INTERRUPTS. 


;SET COMMAND PACKET 


;CLEAR INTERRUPT RECEIVED FLAG 


;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP DELAY COUNTER 

;CLEAR COUNTER 

;00 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 


Cs6SUB 


#PRIOO,RO 
CS$SPRI 


TEST 1 _- STEM DED Ma! 


TEST 7: 


4436 


EXTE 


064572 
064572 


012727 
000000 
0135727 
000000 


104406 
012705 


000250 
002116 
177772 
177756 
067542 
002214 


002174 
067370 
010742 


002214 


011074 


000002 
002214 


067420 
000002 


002214 


000024 


067410 20%: 


25%: 


30$: 


40$: 


DELAY 


L14 


BS oy +! MACRO M1113 06-FEB-84 18:04 


250 


RO, 
ERRNO, SF IERR, SF IMSG 


UNITN, T350SW 
@TSSPACKET ,R4 
PC ,WRTCHR 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


PC ,REWIND 
30$ 


RO,R4 

TSSRCRS),R1 

FATFLG 

ERRNO, TS3SRWN,PKTSSR 


ar Ata 


LG 
ERRNO, T35B0T ,EXPREC 


#20. ,R5 


SEQ 180 

;DELAY ABOUT .25 SEC 
. WORD 0 
MOV LS$DLY,CPC)+ 
. WORD 0 
DEC -6(PC ) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

;BUMP COUNTER 

;BR, IF COUNTER NOT DONE 

s;ERROR COUNT 

sCONTENTS OF TSSR REGISTER 

;FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. WORD 712 
. WORD SFIERR 
. WORD SF IMSG 


;SET UP DRIVE NUMBER 

; SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;BR, IF pr ISSUED OK 


; SAVE CONTENTS OF TSSR 
;sWRITE CHARACTERISTISC ‘oy 


RAP CSERHRD 
-WORD 713 
-WORD WRITMSG 
-WORD SFIMSG 


;LOOP IF SELECTED 
TRAP CSCLP1 


;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
;SET UP REWIND PACKET ADDRESS 
;GET TSSR CONTENTS 

;ERROR COUNT 
;REWIND NOT ACCEPTED 


TRAP CSERHRD 
. WORD 714 
. WORD T35RWN 
WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPl 
;sPICK UP XxSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;DOES EXP = REC'D 
;B8R, IF EQUAL (OK) 
;ERROR COUNT 
; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 715 
. WORD T35B0T 
. WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1L 


;NUMBER OF RECORDS 


M14 


TEST 1 - TENDED Ma 8 thet MACRO M1113 06-FEB-84 18:04 SEQ 181 


TEST 7: EXTENDE 


4478 065000 012737 000400 067516 MOV 0256. ,7135SZ ;SET UP RECORD SIZE 
ob. 065006 013737 003116 0675le MOV FREE, -T35WB sADDRESS OF WRITE BUFFER 
4 

4481 s ARARRARAAAERARERAARAAAEARARAREREDADAEEDS 

4482 ; 

ane ;WRITE DATA,ACK,CVC=1 COMMAND 

; 

4485 s AERAREAEEAREAAAEAAERESASAEADADSAAEAEREDRES 

4486 

4487 065014 012737 140005 067510 MOV #140005, T35PK3 ;sWRITE DATA,ACK,CVC=1 COMMAND 

4488 065022 012704 067510 MOV @T35PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

4489 065026 010465 000000 50$: MOV R4, TSDOBCRS) ;I1SSve COMMAND 

4490 065032 004737 016350 JSR PC WALTF ;WAIT FOR SSR TO SET 

4491 065036 016501 000002 MOV TSSRCRS), R1 ;GET TSSR CONTENTS 

4492 065042 012702 000200 MOV @SSR,Re2 ;SET UP EXPECTED 

4493 065046 020102 CMP R1,R2 ;ARE THEY EQUAL 

4494 065050 001406 BEQ 60$ ;BR, IF OK 

4495 065052 005237 002214 INC FATFLG ;ERROR COUNT 

4499 065056 ERRHRD ERRNO, T35WDE,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
065056 104456 TRAP CSERHRD 
065060 001314 . WORD 716 
065062 070266 . WORD T35WDE 
065064 012126 . WORD PKTSSR 

4500 065066 60$: CKLOOP ;LOOP IF SELECTED 

7 065066 104406 TRAP CSCLP1 

4502 ROME REMASTER 

4503 

pe ae sWALT FOR TAPE TO STOP ALL MOTION 

4506  Oodesesecseresasasesosascasecccsesosesse 

4507 

4508 065070 012737 000012 067542 MOV #10. ,T3SOLY ;SET UP DELAY COUNTER 

4509 065076 70$: DELAY 250 ;WAIT ABOUT .25 SEC 
065076 012727 000250 MOV #250,.(PC)> 
065102 000000 . WORD 0 
065104 013727 002116 MOV LSOLY,(PC)+ 
065110 000000 . WORD 0 
065112 005367 177772 DEC -6°°C) 
065116 001375 BNE .- 
065120 005367 177756 DEC -22(PC) 
065124 001367 BNE .-20 

4510 065126 005337 067542 DEC T35D0LY ;BUMP COUNTER DOWN 

4511 065132 001361 BNE 70$ ;BR, IF MORE TO DELAY 

4512 065134 005737 002220 TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 

4513 065140 001042 BNE 110$ ;68R IF SWITCH IS ON 

4514 065142 112737 000200 067521 MOVB $200, T358S1 ;sWRITE MISCELLANEOUS CONT/READ STATUS 

4515 065150 112737 000010 067520 MOVB #10, T35B8S0 sFUNCTION SELECTION BIT C TURN ON EXTFEA HW SWITCH) 

4516 065156 012704 067500 MOV @T3SPK2,R4 ;WRITE SUBSYS MEM PACKET 

4517 065162 010465 000000 MOV R4,TSOBCRS) ; ISSUE COMMAND 

4518 065166 004737 016416 JSR PC ,CHKTSSR ;WAIT FOR SSR 

4519 065172 103407 BCS 90$ ;6BR, IF NO ERROR 

4520 065174 010001 MOV RO,R1 ;ERROR, SAVE TSSR 

4521 065176 005237 002214 INC FATFLG ;ERROR COUNT 

4525 065202 ERRHRD ERRNO, T35SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANCOUS 
065202 104456 TRAP CSERHRD 
065204 001315 . WORD 717 


065206 


TEST 1 - HARDWARE TEST 
TEST 7: EXTENDED MODE 


072422 
012126 


104406 
012704 
004737 
103407 
005237 
010001 


104456 
001316 
005052 
012114 


104406 


012737 
005037 


012737 
012704 


005237 
012727 
000000 


re 


8 TEST MACRO M1113 0O6-FEB-84 18:04 SEQ 182 
ATURES 
. WORD 
. WORD 
90$: CKLOOP ;LOOP IF SELECTED — 
067370 MOV #T3SPACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
010742 JSR PC ,WRTCHR ; ISSUE WRITE CHARACTERISTICS 
BCS 100$ ;BR, IF COMMAND ISSUED OK 
002214 INC FATFLG ;ERROR COUNT 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
IRAP 
. WORD 
. WORD 
. WORD 
100$: CKLOOP ;SCOPE LOOP — 
176750 067542 110$: MOV #65000. , TSSDLY ;SET UP DELAY COUNTER 
067536 CLR T35CNT ;DELAY COUNTER 
5 RRRRAEAAAAERAERERARAEREAAADREAERRAAEREDRS 
: 
;sREWIND IMMEDIATE,ACK,CVC=1,IE=1 COMMAND 
; 
Perririttttttittt tt titi itititittttt ttt 
142212 067510 MOV #142212, T35PK3 ;REWIND IMMEDIATE ,ACK,CVC=1,IE=1 COMMAND 
067510 MOV @T35PK3,R4 ;SET UP R4&4 WITH PACKET ADDRESS 
000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 
000002 120$: MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
000200 BIT #SSR,R1 ;CHECK FOR SSR SET 
BNE 130$ ;3R, WHEN SSR IS SET 
067536 INC T35CNT ;BUMP THE CYCLE COUNTER 
DELAY 1 ;sDELAY TO KEEP COUNTER DOWN 
000001 MOV 
. WORD 
002116 MOV 
. WORD 
177772 DEC 
BNE 
177756 a 
067542 DEC T350L Y ;DROP DEAD TIMER BUMP DOWN 
BNE 120$ ;BR, IF MORE TIME TO GO 
000200 1.30$: MOV @SSR,R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 140$ :BR, IF OK 
002214 INC FATFLG ;ERROR COUNT 
ERRHRD ERRNO, T35RWE,PKTSSR ;TSSR INCORRECT AFTER wa peste 
. WORD 
. WORD 
. WORD 
140$: CKLOOP ;LOOP IF SELECTED eels 
002216 TST INTRECV ;CHECK FOR INTERRUPTS 
BNE 150$ ;BR, IF INTERRUPTS DETECTED 
000002 MOV TSSRCRS),R1 ;GET TSSR STATUS FOR PRINTOUT 


@ 


“T35SSR 


PKTSSR 
CSCLP1 


CSERHRD 


CSCLP1 


ne 
$ OOL.Y LOG Ms 


-6( PC) 
4 


“22(PC) 
-=20 


CSERHMRD 
719 

T3SRWE 
PKTSSR 


CsCLPl 


B15 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 SEQ 185 
TEST 7: EXTENDED MODE FEATURES 

4568 065412 005237 002214 INC FATFL sERROR COUNT 

4572 065416 ERRHRD ERRNO. T35NIN,PKTSSR s INTERRUPT NOT RECEIVED (BAD) 
065416 104456 TRAP CSERHMRD 
065420 001320 . WORD 720 
065422 073056 . WORD T35NIN 
065424 012126 . WORD PKTSSR 

4573 065426 1508; CKLOOP sLOOP IF SELECTED 

este 065426 104406 TRAP CSCLPl 

457 Po UT IIT IT TTT iii iiitiiitititiitititi yyy} 

4576 ; 

pf _ CHECK FOR THE MOTION BITS SET 

4579 jtaeseaseasccnsccsccsscrscrscasscsscnsens 

4580 

4581 0654350 013701 067420 MOV T356FR+6,R1 sPICK UP xXSTO 

4582 065434 010102 MOV 1,R2 ;SET UP EXPECTED 

4583 065436 052702 000200 BIS oBIt?7, Re :;SET MOT BIT IN EXPECTED 

4584 065442 020102 CMP R1,R2 ;D0ES EXP = REC'D 

4585 065444 001406 BEQ 1608 ;8R, IF EQUAL (OK) 

4586 065446 005237 002214 INC FATFLG sERROR COUNT 

4590 065452 ERRHRD ERRNO, TSSMOT ,.EXPREC ;TAPE NOT AT BOT AFTER REWIND 
065452 104456 TRAP CSERHRD 
065454 001321 . WORD 721 
065456 072505 . WORD T3SMOT 
065460 015554 . WORD EXPREC 

4591 065462 1608: CKLOOP ;LO0P IF SELECTED 
065462 104406 TRAP CSCLP1 

4592 065464 013701 067424 MOV T356FR+12,R1 ;PICK UWP xST2 

4593 065470 010102 MOV R1,R2 ;SET UP EXPECTED 

4594 065472 052702 100000 BIS 6BIT1iS,Re2 ;SET OPM BIT IN EXPECTED 

4595 065476 020102 CMP 1,R2 s;D0ES EXP = REC'D 

4596 065500 001406 BEQ 170% ;BR, IF Chae (OK ) 

4597 065502 005237 002214 INC FATFLG RROR COUNT 

4601 065506 ERRHRD ERRNO, 1350PM,ExXPREC ;0PM™ BIT Nor SET 
065506 104456 TRAP CSERHRO 
065510 001322 . WORD 722 
065512 072672 . WORD T350PM 
065514 015554 . WORD EXPREC 

4602 065516 1708: CKLOOP ;LOOP IF SELECTED 
065516 104406 TRAP CSCLPl 

4603 065520 012737 000027 067542 MOV 6235.,7350.1 ;SET UP DELAY COUNTER 

4604 065526 1758: DELAY 250 ;START DELAY 
065526 012727 000250 MOV 9250,(PC)-> 
065532 000000 . WORD 
065534 013727 002116 MOV L.sOr.y,(PC)- 
065540 000000 . WORD 
065542 005367 177772 DEC few ‘acs 
065546 001375 BNE 
065550 005367 177756 DEC 22060) 
065554 001367 BNE 20 

4605 065556 005337 067542 DEC T3SOLY ;BUMP DELAY COUNTER 

4606 065562 001361 BNE 175% ;8R, IF MORE DELAY 

4607 065564 ENDSUB 
065564 i. 10065: 
065564 104403 TRAP CsESUB 

4608 065566 023727 002214 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 05 


EST i 
| ae 


065574 
065576 
065602 


103402 
004737 


005052 


017262 


073164 
073256 
073320 
016054 


002214 


002174 
067370 
010742 


002214 


011074 


000002 
002214 


BLO 
JSR 
9993: 
id 


C15 


| ERVERDED Oe PERruReS “ONO EELS OO-FEB-08 16,08 


999% 
PC ,CKDROP 


; 
sTEST 7, SUBTEST 3 


MOT*1 


067410 208: 


233: 


ERRHRD 


iatun’” COMMAND, 
THEN THE REWIND WITH IMMEDIATE INTERRUPT COMMAND IS ISSUED AND 
THEN THE GET STATUS COMMAND IS ISSUED. 
THE GET STATUS SHOULD TERMINATE ALMOST IMMEDIATELY AND SHOW 
AND OPM=1 IN THE MESSAGE BUFFER. 
ENOUGH TO ALLOW THE REWIND TO COMPLETE AND THE TAPE COME TO 
REST, GET STATUS IS AGAIN ISSUED AND THE STATUS CHECKED; 
MOT AND OPM SHOULD BE CLEAR, 


TERMINATION VERIFIED. 


SEQ 184 


sBR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


VERIFIES THAT THE NON-TAPE-MOTION COMMAND GET STATUS, ISSUED 
IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH IMMEDIATE 
TERMINATES PROPERLY AND PROVIDES PROPER 


FIRST, A NUMBER OF DATA RECORDS ARE WRITTEN FROM BOT. 


PC, TSSREST 
PC, T3SRT2 
PC, T3SRTS 
PC ,SOFINIT 


RO,R1 
ERRNO, SF TERR, SF IMSG 


UNITN, T350SW 
pane oes 


RO,R1 
ERRNO ,WRIMSG, SF IMSG 


PC ,REWIND 
50% 


RO ,R4 

TSSRCRS),R1 

FATFLG 

ERRNO, T35RWN,FKTSSR 


AFTER A DELAY LONG 
BOTH 


3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
77.35: 


TRAP Cs6SvU8 

;SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

300 INITIALIZE ON CONTROLLER 

;B8R IF INIT WAS OK 

s;ERROR COUNT 

;CONTENTS OF TSSR REGISTER 

;FATAL ERROR TSSR WAS NOT OK 
TRAP C sERDF 
. WORD 723 2 
. WORD SF IERR 

0 SF IMSG 


. WOR 
;SET UP UNIT NUMBER IN PACKET 
;SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sERROR COUNT 

;SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC oe 


RAP CSERHRD 
ORO 724 
. WORD WRTMSG 
. WORD SF IMSG 
;LOOP IF SELECTED 
TRAP CSCLPl 


;CALL TAPE REWIND COMMAND 
;8R, IF NO PROBLEM 
;SET UP REWIND PACKET ADDRESS 
3;GET CONTENTS FOR CALL 

;ERROR COUNT 
;REWIND NOT ACCEPTED 


TEST 1 - HARDWARE TEST 


TEST 


73 


065724 
065726 
065730 
065732 
065734 
065734 
065736 
065742 
065744 
065750 
065752 
065754 
065760 
065760 
065762 
065764 
065 766 
065770 
065770 
065772 
065776 


066072 
066100 
066104 


104456 
001325 
070644 
012126 


104406 
013701 
010102 
052702 
020102 
001406 
005237 


104456 
001326 
070340 
015554 


104406 
012705 
013737 


012737 


012737 
010465 
004737 


067420 
000002 


002214 


000024 
003116 


140005 
067510 


017502 
067516 
000000 


0163350 
000002 
000200 


002214 


141005 
000000 
016550 


067512 


067510 


067510 


1-6 TEST MACRO M1115 06- 
EXTENDED MODE FEATURES 


30$; 


403: 


DLS 


FEB-84 18:04 

CKLOOP 

MOV T35BFR+6,h1 
MOV R1,Re2 

BIS OBIT1,R2 
CMP R1,R2 

BEQ 40% 

INC FATFLG 
ERRHRD ERRNO, TSSBOT,EXPREC 
CKLOOP 

MOV @20.,R5 

MOV FREE, 135w6 


SEQ 185 
TRAP 
. WORD 
. WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 


sPICK UP xSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

;B8R, IF EQUAL (OK) 


s;ERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
. WORD 


TRAP 


;LOOP IF SELECTED 
sSTARTING RECORD SIZE 


;STARTING WRITE BUFFER ADDRESS 


§ 9084420666 66666666666666666666646666666666 


‘ 
sWRITE DATA,CVC*1,ACK COMMAND 


3 
§ OOO 8806660606686 8660660660660667986866864606664666666 


653: 


808: 


MOV #140005, T3S5PK53 
MOV OT3SSPKS,R4 
MOV R3,RO 

JSR PC,FILLMEM 
MOV R3,735S2Z 
MO’ R4, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 80% 


INC FATFLG 
ERRHRD ERRNO, T3S5WOC,.PKTSSR 


CKLOOP 


sWRITE DATA,CVC=1,ACK COMMAND 


;SET UP R4 WITH PACKET ADDRESS 
;SET PATTERN IN CORRECT REGISTER 


sFILL MEMORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 


:;B6R, IF OK 
s;ERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
: TRAP 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


§ 0020606666666 8666660666646666664666464664666666666 


;WRITE DATA RETRY,CVC*1.ACK COMMAND 


§ 246666 OOOO 64SSEESEESESESESEHEESEEEESEEHSEEEESEESD 


sWRITE DATA RETRY,CVC=#1,ACK COMMAND 


MOV #141005, T355PK5 
MOV R4,TSDOBC(RS ) 
JSR PC ,WAITF 


; ISSUE COMMAND 
;WAIT FOR SSR TO SET 


C SERHRD 
725 

1 3SRWN 

PKTSSR 


CSCLPi 


CSERHRD 
726 
T35B0T 
E xXPREC 


CSCLPl 


CSERHRD 


727 
T3SwOC 


PKTSS& 
CSCLPl 


TEST 


ELS 


18:04 


TSSRCRS),R1 

@SSR ,R2 

R1,R2 

90$ 

FATFLG 

ERRNO, T3SSWRF ,PKTSSR 


RO,R1 

TSSRCRS),R1 

FATFLG 

ERRNO, T3SRWN,EXPREC 


T35SBFR+6,R1 
R1,R2 
a 


2403 
FATFLG 
ERRNO, T3SBOT ,EXPREC 


620. ,R3 
FREE, T35RB 


SEQ 186 


;GET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 


T3SWRF 


;8R, IF OK 
;ERROR COUNT 
;TSSR INCORRECT AFTER en RETRY 
. WORD 
. WORD 
. WORD 


;LOOP IF SELECTED 


TRAP 
sBUMP RECORD SIZE COUNTER 
sAT 42 SIZE YET 
;BR, IF MORE RECORDS TO WRITE 
;sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


;SAVE TSSR 
;GET sage al aby 
RROR COUNT 

;REWIND NOT ACCEPTED 
TRAP 
a WORD 
. WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 


;PICK UP xXSTO 

;SET UP EXPECTED 

:;SET BOT BIT IN EXPECTED 
;LOES EXP = REC'D 

;BR, IF EQUAL (OK) 


;ERROR COUNT 

; TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


sSTARTING RECORD SIZE 
;STARTING READ BUFFER ADDRESS 


20266666466 66664666646466646464646466664666466666066 


5 
§ OOOO 6466666664466 46666466664666046466666666666 


#100001, T35PK3 
OT35PK3,R4 
0177777,RO 
PC,FILLMEM 
R3,T35SZ 
R4,TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 
7: EXTENDED MODE FEATURES 
4712 066110 016501 000002 MOV 
4713 066114 012702 000200 MOV 
4714 066120 020102 CMP 
4715 066122 001406 BEQ 
4716 066124 005237 002214 INC 
4720 066130 ERRHRD 
066130 104456 
066132 001330 
066134 072245 
066136 012126 
4721 066140 90%: CKLOOP 
066140 104406 
4722 066142 005723 TST 
4723 066144 020327 000052 CMP 
4724 066150 001315 BNE 
4725 066152 004737 011074 JSR 
4726 066156 103411 BCS 
4727 066160 010001 MOV 
4728 066162 016501 000002 MOV 
4729 066166 005237 002214 INC 
4733 066172 ERRHRD 
066172 104456 
066174 001331 
066176 070644 
066200 015554 
4734 066202 2308: CKLOOP 
066202 104406 
4735 066204 013701 067420 MOV 
4736 066210 010102 MOV 
4737 066212 052702 000002 BIS 
4738 066216 020102 CMP 
4739 066220 001406 BEQ 
4740 066222 005237 002214 INC 
4744 066226 ERRHRD 
066226 104456 
066230 001332 
066232 070340 
066234 015554 
4745 066236 2408: CKLOOP 
066236 104406 
4746 066240 012703 000024 MOV 
“tb 066244 013737 003116 067512 MOV 
4749 
4750 ; 
4751 sREAD DATA,ACK COMMAND 
4752 
4753 
4754 
4755 066252 012737 100001 067510 265%: MOV 
4756 066260 012704 067510 MOV 
4757 066264 012700 177777 MOV 
4758 066270 004737 017502 JSR 
4759 066274 010337 067516 MOV 
4760 066300 010465 000000 MOV 
4761 066304 004737 016330 JSR 
4762 066310 016501 000002 MOV 


sREAD DATA,ACK COMMAND 


;SET UP R4 WITH PACKET ADDRESS 
;SET PATTERN IN CORRECT REGISTER 


sFILL MEMORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 


PKTSSR 
CSCLP1 


CSERHRD 
729 
T3SRWN 
EXPREC 


CsCLP1 


C SERHRD 
730 
T3SB0T 
EXPREC 


CsCLPl 


TEST 1 - HARDWARE TEST 


TEST ?: 


1 
4Ble 066444 


EXTENDED MODE 


012702 


104403 
023727 
103402 
004737 


1-8 TEST MACRO M1113 06-FEB-84 
FEATURES 


000200 


002214 


003116 


000024 


002214 


000050 


002214 000017 


017262 


2803: 


285$: 


2903: 


300$: 
3308: 


9995: 


3 * 


rio 


18:04 


@SSR,Re2 


G 
ERRNO, TSSROF ,PKTSSR 


ERRNO, T350TA,EXPREC 


CR4)> 
R2,R4 
R4,R3 
285% 
CR3)-+ 
R3,040. 
265% 


FATFLG,@15. 
999% 
PC ,CKDROP 


3 
;TEST 7, SUBTEST 4 


VERIFIES THAT A 


SEQ 187 


sSET UP EXPECTED 
sARE THEY EQUAL 


;BR, IF ven 
RROR COUNT 

;TSSR INtORRECT AFTER READ DATA 
TRAP 
. WORD 
. WORD 
WORD 

;LOOP IF SELECTED 
TRAP 


;GET BUFFER ADDRESS 

sGET RECORD SIZE 

sPOINT BACK TO 1ST RECORD 
sPOINT TO 1ST LOC IN BUFFER 
sDATA WRITTEN = READ 

;BR, IF DATA OK (GOOD) 
;PICK UP BAD DATA 

;SET UP EXPECTED 


sERROR COUNT 
;DATA IN. BUFFER NOT CORRECT 
TRAP 
. WORD 
. WORD 
. WORD 


;LOOP IF SELECTED 


;BUMP TO NEXT ADDRESS 
;BACK TO RECORD SIZE 

;AT END OF RECORD YET 

;8R, IF MORE DATA TO CHECK 
;BUMP RECORD SIZE 

;DONE YET 


T3SROF 
PKTSSR 


CSCLPi 


CSERHRD 
732 
T3SOTA 
EXPREC 


CsCLPl 


;BR, IF NOT DONE YET (MORE READS) 


; LOOP IF SELECTED 
TRAP 


CsCLP1 


;>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>> 


L10066: 
TRAP 
:;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


A TAPE-MOTION COMMAND (READ, WRITE, POSITION), 


ISSUED IMMEDIATATELY AFTCR TERMINATION OF A REWIND WITH 


IMMEDIATE INTERRUPT COMMAND, 


THEN EXECUTES PROPERLY. 


BGNSUB 


TS “QUEVED” BY THE CONTROLLER AND 


CsESUB 


;>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 


4849 


4854 


1: EPRROES ABBZ 


000000 
013727 
000000 


005052 


005237 


073164 
073256 
073320 
176750 
016054 
000250 
002116 
177772 
177756 
067542 


002214 


002174 
067370 
010742 


002214 


911074 
000002 
002214 


067420 
000002 


002214 


067542 


10$: 


067410 20%: 


23$: 


30$: 


G15 


dS, Theat MACRO M1113 06-FEB-84 18:04 


PC, T3SREST 
PC,T35RT2 
PC,T3SRTS 
#65000. , TS5D0LY 
PC, SOF INIT 

20$ 

250 


ERRNO, SF IERR,SFIMSG 


UNITN, T350SW 
@TSSPACKET ,R4 
PC,WRTICHR 


RO,R1 
ERRNO ,WRTMSG, SF IMSG 


aT ‘Panes 


TSSRCRS), R1 

RO,R4 

FATFLG 

ERRNO, T355RWN,PKTSSR 


SEQ 188 
77.4: 
TRAP CsBSUB 
3SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP DELAY COUNTER 
300 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
;DELAY ABOUT .25 SEC 
MOV 8250,(PC)+ 
. WORD 0 
. WORD 0 
DEC -6(PC) 
BNE -4 
DEC -22(PC ) 
BNE -20 
;BUMP COUNTER 
;BR, IF COUNTER NOT DONE 
s;ERROR COUNT 
;CONTENTS OF TSSR REGISTER 
s;FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
. WORD 733 
. WORD SFIERR 
WORD SF IMSG 


;SET UP UNIT CORIVE) NUMBER 
;SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;8R, IF COMMAND ISSUED OK 

sERROR COUNT 
;SAVE CONTENTS OF TSSR 
;sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 
. WORD 734 
. WORD WRTMSG 
. WORD SF IMSG 
;LOOP IF SELECTED 
TRAP CSsCLPl 
;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
;GET TSSR CONTENTS 
;GET aman ADDRESS 
RROR COUNT 
;REWIND hor ACCEPTED 
TRAP CSERHRD 
. WORD 735 
. WORD T35RWN 
. WORD PKTSSR 
;LO0P IF SELECTED 
TRAP CSCLPl 


sPICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

;BR, IF EQUAL (OK) 
;ERROR COUNT 


His 
TEST 1_- HARDWARE TEST 1-8 TEST MACRO M -FEB- 
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4858 


066666 
066666 
0666 70 
066672 
066674 
0666 76 
0666 76 
066 700 
066 704 


104456 
001340 
070340 
015554 
104406 
012703 
013737 


012737 


012126 
104406 


012737 


000024 
003116 


140005 
067510 


017502 
067516 
000000 


016330 
000002 
000200 


002214 


111005 
000000 
0163350 
000002 
000200 


002214 


067512 


067510 


067510 


ERRHRD ERRNO, TS55B80T ,EXPREC 


40$: CKLOOP 
MOV €20.,R3 
MOV FREE ,135wB 


SEQ 189 
;TAPE NOT AT BOT AFTER REWIND 
TRAP C S$ERHRD 
-WORD 736 
.WORD T3580T 
WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


;STARTING RECORD SIZE 
;STARTING WRITE BUFFER ADDRESS 


5 4#O200604604644646466464046466466646466464664644646466464666646 


; 
sWRITE DATA,CVC=1,ACK COMMAND 
; 


3 9O20404446464646464646404646640464646646464464064646666 


65$: MOV #140005, T35PK3 
MOV OT35PK3,R4 
MOV R3,RO 
JSR PC,.FILLMEM 
MOV R3,735S2Z 
MOV R4,TSOBCRS) 
JSR PC ,WALTF 
MOV TSSRC(RS),R1 
MOV @SSR Re} 
CMP R1,R2 
BEG 80$ 
INC FATFLG 
ERRHRD ERRNO, T35WOC,PKTSSR 
80$: CKLOOP 


;sWRITE DATA,CVC#1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 

UP RECORD SIZE IN PACKET 


;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 


;BR, IF OK 
;ERROR COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
. WORD 737 
. WORD T35WOC 
. WORD PKTSSR 

;sLOOP IF SELECTED 
TRAP CSCLPl 


S SSSSSEHESEASSEASHEASEHESOEESHESEEESEASHEEHESEEEEEEEES 


: 
;WRITE DATA RETRY,ACK,SWB=1 COMMAND 
, 


§S FSASSSSEKSEHAESSESESEAESEAEEESEHADAESEEEEEEESZEEESE 


MOV #111005, T35PK3 

MOV R4,TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV 2SSR,Re 

CMP R1,Re 

BEQ 90$ 

INC FATFLG 

ERRHRD ERRNO, T35WRF ,EXPREC 
903%: CKLOOP 


;sWRITE DATA RETRY,ACK,SWB=1 COMMAND 
; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 


;BR, IF OK 
;ERROR COUNT 

;TSSR INCORRECT AFTER WRITE DATA RETRY 
TRAP CSERHRD 
. WORD 738 
. WORD T35WRF 
. WORD EXPREC 

;LOOP IF SELECTED 
TRAP CSCLPl 
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TEST 7: EXTENDED MODE FEATURES 

4906 067050 005725 TST CR3)+ ;BUMP RECORD SIZE COUNTER 

4907 067052 020327 000052 CMP R3,042 sAT 42 SIZE YET 

4908 067056 001315 BNE 65$ ;BR, IF MORE RECORDS TO WRITE 

4909 067060 004737 011074 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

4910 067064 103411 BCS 230$ ;6R, IF NO PROBLEM 

4911 067066 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

4912 067072 010004 MOV RO,R4 ;GET PACKET ADDRESS 

4913 067074 005237 002214 INC FATFLG ;ERROR COUNT 

4917 067100 ERRHRD ERRNO, T3SRWN,PKTSSR sREWIND NOT ACCEPTED 
067100 104456 TRAP CSERHRD 
067102 0013435 . WORD 739 
0671Uu4 070644 -WORD T35RWN 
067106 012126 .WORGD PKTSSR 

4918 067110 230: CKLOOP ;LOOP IF SELECTED 
067110 104406 TRAP CsC.P1 

$919 067112 013701 067420 MOV T35BFR+6,R1 ;PICK UP XSTO 

4920 067116 010102 MOV R1,Re2 ;SET UP EXPECTED 

4921 067120 052702 000002 BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 

4922 067124 020102 CMP R1,R2 ;D0ES EXP = REC'D 

4923 067126 001406 BEQ 2403 ;BR, IF EQUAL (OK) 

4924 067130 005237 002214 INC FATFLG ;ERROR COUNT 

4928 067134 ERRHRD ERRNO, TSSBOT ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
067134 104456 TRAP CSERHRD 
067136 001344 -WORD 740 
067140 070340 -WORD T3S80T 
067142 015554 -WORD EXPREC 

4929 067144 2405: CKLOOP ;LOOP IF SELECTED 
067144 104406 ; TRAP CSCLP1 

4930 067146 012703 000024 MOV 020. ,R3 sSTARTING RECORD SIZE 

phe 067152 013737 003116 067512 MOV FREE, T35RB ;STARTING READ BUFFER ADDRESS 

rie s, jORRAAAEEAEEEEEEEADESEEEEEEEEEDOEDEEOROOES 

a 

4935 ;READ DATA,ACK COMMAND 

4936 ; 

roe Lf 5 PAHSOEEEEEAEEEEEEAEEEEEESEEEEEEEEEREEEES 

4939 067160 012737 100001 067510 265%: MOV #100001, T3S5PK3 ;sREAD DATA,ACK COMMAND 

4940 067166 012704 067510 MOV @T35PK3,R4 ;SET UP R4&4 WITH PACKET ADDRESS 

4941 067172 010337 067516 MOV R3,T35SZ ;SET UP RECORD SIZE IN PACKET 

4942 067176 010465 MOV R4,TSOBCRS) = ; ISSUE COMMAND 

4943 067202 004737 016330 JSR PC ,WAITF ;sWAIT FOR SSR TO SET 

4944 067206 016501 000002 MOV TSSR(RS), R1 ;GET TSSR CONTENTS 

4945 067212 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 

4946 067216 020102 CMP R1,R2 ;ARE THEY EQUAL 

4947 067220 001406 BEQ 280$ ;BR, IF OER 

4948 067222 005237 002214 INC FATFLG RROR COUNT 

4952 067226 ERRHRD ERRNO, TSSROF ,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
067226 104456 TRAP CSERHRD 
067230 001345 . WORD 741 
067232 067632 . WORD T3SRCOF 
067234 012126 WORD PKTSSR 

4953 067236 2805: CKLOOP ;LOOP IF SELECTED 
067236 104406 TRAP CsCLPl 

4954 067240 013702 003116 MOV FREE ,R2 ;GET BUFFER ADDRESS 

4955 067244 010304 MOV R3,R4 ;GET RECORD SIZE 

4956 067246 162704 000024 SUB #20, ,R4 ;sPOINT BACK TO 1ST RECORD 
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TEST 


010302 
005237 


104456 


EXTENDED MODE FEATURES 


002214 


000050 


002214 
017262 


0165356 
063444 


2853: 


2903: 


3005: 


163$: 


FATFLG 


ERRNO, TSSDTA,EXPREC 


J1i5 


FATFLG,@15. 
999% 


PC ,CKDROP 


PC, TSTLOOP 


;* 
;LOCAL STORAGE FOR THIS TEST 


T35BFR: 


.*¢,+10>€177770 
T35PACKET: 
. WORD 


100004 
ee 


10, 
T35BFR 
0 

20. 

0 


0 
25. 


SEQ@ 191 


sPOINT TO 1ST LOC IN BUFFER 
;SWAP BYTES SWB=1 ETC. 
;sDATA WRITTEN = READ 

;BR, IF DATA OK (GOOD) 
;PICK UP BAD DATA 

;SET UP EXPECTED 


sERROR COUNT 

;DATA IN BUFFER NOT CORRECT 
TRAP 
. WORD 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


;BUMP TO NEXT ADDRESS 
;BACK TO RECORD SIZE 

;PUT R3 BACK INTO SHAPE 
;AT END OF RECORD YET 

;BR, IF MORE DATA TO CHECK 
;BUMP RECORD SIZE 

;DONE YET 


CSERHRD 
742 
T3SOTA 
EXPREC 


CSCLP1 


;BR, IF NOT DONE YET (MORE READS) 


;LOOP IF SELECTED 
TRAP 


CSCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10067: 
TRAP 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


;00 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
;sEXECUTE AGAIN 
;ALL DONE THIS TEST 
TRAP 
. WORD 


;COMMAND PACKET FOR TEST 


CsESUB 


CsExITt 
L100635-. 


;sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
;ADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
;CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


;LENGTH OF MESSAGE BUFFER 


;SELECT ORIVE O 
;sMESSAGE BUFFER 


KL5 
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TEST 7: EXTENDED MODE FEATURES 

44 ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 

1 ; 
5012 067500 .*<,+10>%E177770 
5014 067500 T35PKe: 
5015 067500 . WORD 100006 ;sWRITE SUB SYS MEM COMMAND, AND ACK 
5016 067502 067520 . WORD T358F 2 s;ADDRESS OF SELECT BLOCK DATA 
5017 067504 000000 . WORD 0 
sty: 067506 000006 . WORD 6. ;SIZE OF DATA PACKET 
5023 067510 T35PK3;: 
5024 067510 100005 . WORD 100005 ;REREAD COMMAND, AND ACK 
5025 067512 T35RB: 
5026 067512 003116 T35WB : WORD FREE ;ADDRESS OF WRITE BUFFER 
5027 067514 000000 . WORD 0 
5028 067516 000000 T35S2Z: WORD 0 ;SIZE OF BUFFER CEXTENT) 
5029 EVEN 
5030 ; 
5031 ; 
5032 ; 
5033 067520 T3586Fe: 
5034 067520 010 T358S0: .BYTE 10 ;BSELO AREA 
5035 067521 200 T35B8S1: .BYTE 200 ;BSEL1 AREA 
5036 067522 000000 T35S2: .WORD 0 ;SEL 2 AREA 
5037 067524 000000 T35S3: .WORD 0 sDATA AREA 
5038 ; 
5039 ; 
5040 .EVEN 
Boas ;TAPE MOTION PACKET COMMAND VALUES 
5043 067526 100205 T35SRN: .WORD 100205 sREREAD DATA (NEXT) 
5044 067530 100605 T35WOR: .WORD 100605 ‘+sREREAD DATA RETRY 
5045 067532 102205 T3SCON: .WORD 102205 ;WRITE CONTINOUS 
ey 067534 177777 . WORD 177777 ;END OF DATA 
5048 | 
5049 067536 000000 T35CNT: .WORD 0 ;TAPE TIMER COUNTER STORAGE AREA 
5050 067540 000000 T3SCNU: .WORD 0 ;TAPE TIMER COUNTER STORAGE AREA 
et: 067542 000000 T35OLY: .WORD 0 ;DELAY COUNTER 

3; ¢ 

5053 ;LOCAL TEXT MESSAGES FOR TEST 
5054 ;- 
5055 , 
5056 067544 124 141 160 TSSWNG: .ASCIZ ‘Tape Position Incorrect After REREAD Previous (OPP=1)’ 
5057 067632 124 123 123 TS3SROF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ 
5058 067701 122 105 122 TSSRRF: .ASCIZ ‘REREAD Previous (Space Reverse, Read Forward) Command Fai led’ 
5059 067776 120 117 123 T35SC: ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 
5060 070060 122 111 102 TS3SLOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT' 
5061 070130 124 123 123 T3SWOF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 
5062 070205 111 154 154 T35t0Q@: .ASCIZ ‘Illegal Mode Bits, Failed To Set ILC Bit In XSTO' 
5063 070266 124 1235 123 T3SWDOE: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command’ 
5064 070340 124 141 160 T3SBOT: .ASCIZ ‘Tape Not At BOT After REWIND Command (80T Not Set In XSTO)’ 
5065 070433 127 122 111 T3STIM: .ASCIZ ‘WRITE DATA RETRY'’S Erase Tape Not Long Eno ‘ 
5066 070510 122 105 122 T3SEOT ASCIZ ‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
5067 070567 124 123 123 T35TM; ASCIZ ‘TSSR Not Correct After REREAD COMMAND Re ject’ 
5068 070644 122 145 167 T3SRWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
5069 070713 122 101 115 TS3SRNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In Ram’ 
5070 070766 124 123 123 T35AM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMMAND’ 


TE 
TE 


S 
S 


1 
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071035 
071110 
071200 
071255 
071326 
071401 
071470 
071552 
071634 
071722 
072010 
072106 
072163 
072245 
072325 
072422 
072505 
072601 
072672 
072770 
073056 
073135 


073164 
073164 
073170 
073174 
073200 
073204 
073206 
073212 
073216 
073220 
073224 
073226 
073232 
073236 
073244 
073246 
073252 
073254 


073256 
073256 
073262 
073266 
073272 
073276 
073300 
073304 


012701 


012701 
012721 
012721 
005021 
012721 
005021 


000000 
000030 
177777 


ED MOBE PEAT Test MACRO M1113 06-FEB-84 


EVEN 


Lis 


18:04 


‘Drive 


SEQ 193 


7 Select Failed To Set "“OFL” In TSSR’ 
‘TSSR Not Correct After REREAD DATA Command, 


SWB Bit Set’ 


‘TSSR Not Correct After REREAD DATA Command’ 


‘CvC Set, Didn''t Reset VCK In Mess 
‘TSBA Not Correct After REREAD DATA 


Buffer’ 
ommand' 


‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
‘Reading Long Record Failed To Set RLL Bit In XSTO’ 
‘Reading Long Record Failed To Set RLS Bit In XSTO’ 
A ate rae ay Count Incorrect After Short Record Read’ 


‘Read 
‘WRITE. 


ong Record Failed To Give Tape Status Alert’ 
ATA ETRY, At First Record, Failed To Set RIB Bit XST3’ 


‘TSSR Not Correct After SPACE RECORDS Command’ 


‘TSSR Not Correct After WRITE DATA RETRY, 


Into BOT’ 


‘TSSR Not Correct After WRITE DATA RETRY Command’ 
‘Date Compere Error, Data Read From Tape Not Equal To Written’ 
‘TSSR Incorrect After WRITE MISCELLANEOUS Command’ 


‘MOT Bit CXSTO) Not Set Durin 


Rewind (Extended Features Mode)’ 


‘Interrupt Received After REWIND Command (CIE Bit Not Set)’ 

‘OPM Bit (XST2) Not Set During Rewind (Extended Features Mode)’ 
‘TSSR Incorrect After Extended Features REWIND Command’ 

‘No Interrupt Detected After REWIND SORDIATS’ 


.ASCIZ 


‘Extended Mode Functions’ 


sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;sWRITE SUBSYSTEM MEMORY COMMAND 


TSSREST: 


067412 64%: 


T3SRT2: 


@TSSPACKET,R1 
#100004 ,(R1)->+ 
@T3SSDATA,(R1)> 
CR1)>+ 

#10. »(R1L)-+ 
@TSS5SBFR,CR1)->+ 
CR1)> 

#20. »CR1)> 
CR1)-+ 

00,(R1) 


@24.,R2 

0177777, T3SBFRCR2) 
-(R2) 

#0 ,R2 

64% 

PC 


#T35PK2,R1 
#100006, (R1)> 
CR1)+ 


;SAVE THE REGISTERS 

sSTART OF THE PACKET 

;sWRITE SUBSYSTEM MEM. WITH ACK, 
;ADDRESS OF CHARAISTICS DATA BLOCK 
;EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


;LENGTH OF MESSAGE BUFFER 


;SELECT ORIVE ZERO 

;NUMBER OF LOCATIONS TO BE CLEARED 
;ALL ONES TO MESSAGE BUFFER 

;NEXT LOCATION 

;AT END OF LOOP YET 

;KEEP GOING UNTIL DONE 

;RETURN 


;SAVE THE REGISTERS 

;sSTART OF THE PACKET 

;sWRITE SUBSYSTEM MEM. WITH ACK, 
sADORESS OF DATA BLOCK 
;EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 


Mi5 
SEQ 194 
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5128 073306 012701 067520 MOV oT35BF2,R1 sPOINT TO DATA SEL AREA 
5129 073312 005021 CLR (R1)+ 
5130 073314 005011 CLR (R1) 
5131 073316 000207 RTS PC ;RETURN 
5132 073320 T35SRT3;: 
5133 073320 SAVREG ;SAVE REGISTERS 
5134 073324 012701 067510 MOV @T35PK3,R1 ;SET UP POINTER ADDRESS 
5135 073330 00502 CLR (R1)+ ;COMMAND SPACE 
S136 073332 005021 CLR (R1)> sADDRESS OF DATA BLOCK 
5137 073334 005021 CLR CR1)> ;EXTENDED ADDRESS 
5138 073336 005011 CLR (R1) ;SIZE OF DATA TRANSFER BLOCK 
5139 073340 000207 RTS PC ;RETURN 
51430 073342 ENDTST 

073342 L10063: 

073342 104401 TRAP CsETST 
5141 SBTTL TEST 8: RECORD BUFFERING 
5142 s 
5143 ; 
5144 : 
5145 ; THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
5146 ; AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY 
5147 ; CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
5148 : M7196 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
5149 ; (AS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
5150 ; INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
5151 ; WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
5152 ; BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
5153 ; PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
tt ; ACTUALLY OPERATING. THE FOL! OWTNG SUBTESTS ARE PERFORMED: 
5156 ; VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
5157 , PROPERLY AT LOW TAPE SPEED. THE FOLLOWI*'G SEQUENCE IS 
5158 : PERFORMED: 
5159 : 
trey : THE TAPE IS REWOUND. 
5162 ; 2. BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
gi68 ; (VIA WRITE CHARACTERISTICS COMMAND). 
5165 ; 3. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
ry ; MOVE THE TAPE OFF BOT. 
5168 ; 4. THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
e168 ; TAPE TO REPOSITION AND COME TO REST. 

; 

5171 : S. A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K, 
3172 ; IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE 
5173 ; TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
5174 ; SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS 
5175 ; DISABLED. 
5176 ; 
+f ; 6. BUFFERING IS ENABLED. 
5179 : THE WRITE DATA COMMAND IS AGAIN ISSUED, WITH THE SAME 
5180 ; BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
5181 : COMPLETION IS AGAIN MEASURED. 


Nis 
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TEST 8: RECORD BUFFERING 
5183 : 8. THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 
5184 ; BUFFERED CASES ARE COMPARED. IT IS VERIFIED THAT THE 
5185 ; TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
try ; THAN THAT MEASURED FOR THE BUFFERED CASE. 
1 ; 
5188 $ 9. THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 
5189 3 RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN 
5190 ; THE RANGE 20 THROUGH 3.5K. 
5191 : 
5192 : 
eas ;THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 
1 ; 
5195 ; 
5196 ; 
5197 3- 
5198 073344 BGNTST 
073344 7 T8:: 
5199 073344 012737 006354 002172 MOV #EPRT1,EPRTSW ;PRIMARY ERROR MESSAGE 
5200 073352 004737 017354 JSR PC ,K TOFF ; TURN OFF KTil 
5205 073356 012700 100717 MOV eTST36ID, RO ;ASCII MESSAGE TO IDENTIFY TEST 
5206 073362 004737 016570 JSR PC, TSTSETUP ;00 INITIAL TEST SETUP 
5207 073366 012737 000005 002210 MOV #5 ,LOOPCNT ;PERFORM S ITERATIONS 
coo. 073374 005037 075726 CLR T36CNT ;CLEAR TAPE RECORD COUNTER 
209 36 
5210 ; 
S211 ;TEST 8, SUBTEST 1 
S212 : 
5213 ; 
5214 ; VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
5215 ;THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
5216 ; TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF ) 
S217 ;sERROR BIT SET. 
5218 ; 
5219 : 
5220 ;- 
S221 
S222 073400 T36LOOP : 
$223 073400 BGNSUB 3; >>>>>>>>>>>> BEGIN SUBTES® >>>>>>>>> >>> 
073400 T8.1: 
073400 104402 1 ei CsBSUB 
5224 073402 004737 100740 JSR PC, T36REST ;SET COMMAND PACKET 
S225 073406 004737 101032 JSR PC;-T3S6RT2 :;SET UP OTHER COMMAND PACKET 
5226 073412 004737 101074 JSR PC, T36RT3 ;SET UP OTHER COMMAND PACKET 
S227 073416 012737 176750 075732 MOV #65000. » TS6DLY ;SET UP DELAY COUNTER 
5228 073424 005037 075726 CLR T36CNT ;CLEAR COUNTER 
5229 073430 004737 016054 108: JSR PC ,SOFINIT ;00 INITIALIZE ON CONTROLLER 
5230 073434 103426 BCS 20$ ;BR IF INIT WAS OK 3 
5231 073436 DELAY 250 ;DELAY ABOUT .25 SEC 
073436 012727 900250 MOV #250,(PC)+ 
073442 . WORD 0 
073444 013727 002116 MOV LSOLY,(PC)>+ 
073450 . WORD 0 
073452 005367 177772 DEC -6( PC) 
073456 001375 BNE .°4 
073460 005367 177756 DEC -22( PC) 
073464 001367 BNE .-20 
5232 073466 005337 075732 DEC T360L Y ;BUMP COUNTER 


1 


T - HARDWARE 
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073676 


012114 


002214 


002174 
075560 
010742 


002214 


011074 


002214 


002174 


000050 
075560 
010742 


002214 


075600 208: 


075600 


. 075600 


2538: 


308: 


40%: 


B16 


TEST 1-8 TEST MACRO M1115 06-FEB-84 18:04 


10% 

FATFLG 

RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T360SW 
@T36PACKET ,R4 
PC ,,WRTCHR 


RO, 
ERRNO, WRTMSG, SF IMSG 


PC ,REWIND 
50% 


RO,R4 
FATFLG 
ERRNO, TS6RWN,PKTSSR 


T36BFR+-6,R1 
R 


FATFLG 
ERRNO, TS6B0T ,EXPREC 


UNITN, T360SW 
OBITS!BIT4, T360SW 
OTS6PACKET ,R4 

PC ,WRICHR 


0, 
ERRNO, WRTMSG, SF IMSG 


SEQ 196 


sBR, IF COUNTER NOT DONE 
R OUNT 


sE C 
s CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 


sSET UP DRIVE NUMBER 


sSUBROUTINE NEEDS PACKET ADORESS 


s ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 
sERROR COUNT 

s;SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


;LOOP IF SELECTED ae 

;CALL TAPE REWIND COMMAND 

:8R. IF NO PROBLEM 

;SET UP REWIND PACKET ADORESS 
OR COUNT 


sERR 
sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


;sPICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

;BR,. IF EQUAL (OK) 


;ERROR COUNT 
3 TAPE NoT AT BOT AFTER REWIND 
TRAP 


;LOOP IF SELECTED 
;SET UP DRIVE NUMBER 


TRAP 


CSERHRD 
802 
WRTMSG 
SF IMSG 


CSCLPi 


CSERHRD 
805 

T 36RWN 

Pi TSSR 


CSCLPi 


CSERHRD 
804 
T36807T 


EXPREC 


CscvPl 


325-APR-835 REV & - TURN ON THE BUFFERING 


sSUBROUTINE NEEOS PACKET ADDRESS 


; ISSUE WRITE CHARACTERISTICS 

;8R, IF COMMAND ISSUED OK 
sERROR COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC “eee 


CSERHRD 
805 

WRIMSG 
SF IMSG 


\ 


EST l 
EST 


5300 


5314 
5315 
5316 
5317 
5318 
5319 


073700 
073700 
073702 
073710 
073716 
073724 
073730 
073734 
073740 
073744 
073750 
0737S2 
073754 
073760 
073760 
073762 
073764 
073766 
073770 
073770 
073772 
074000 
074000 
074004 
074006 
074012 
074014 
074020 
074022 
074026 
074030 
074034 
074036 
074044 
074052 
074056 
074062 
074070 
074074 
074100 
074104 
074106 
074112 
074112 
074116 
074120 
074124 
074126 
074132 
074134 
074140 
074142 
074146 
074150 
074154 
074156 
074160 


104406 
012737 
015737 
012737 


104406 
012737 


012/727 
000000 
013727 
000000 


012727 
000000 
013727 
000000 


005367 
001375 


 ROEBASMGTFBaba® "ES" 


8: 


003720 
003116 
140005 
075700 
000000 
016330 


000002 
000200 


002214 


000005 
000001 
002116 
177772 
177756 
075732 


002116 
177772 
177756 
075732 
000200 


002214 


Cl6 


MACRO M1115 06-FEB-84 18:04 


075706 
075702 
075700 


075732 


075706 
075700 


075732 


50$: 


608: 


708: 


80$: 


CKL_OOP 


02000. , 136S2Z 
FREE , T 56W68 


— #140005, TS6PKS 


@TS6PKS,R4 
R4,TSOBCRS) 
PC ,WAITF 

TSSRCRS),R1 


G 
ERRNO ,WRTERR ,PKTSSR 


oe 


03490. ,136SZ 
#140005, TS6PK3 
OTS6PKS ,R4 
T3S6CNT 
#1000. , T360L 1 
R4, TSOBCRS) 
TSSRCRS),R1 
@SSR ,R1 

90% 


TS6CNT 
1 





SEQ 197 
;LOOP IF SELECTED 
| TRAP CSCLPl1 
3;SET UP RECORD SIZE 
sADDORESS OF WRITE BUFFER 
sWRITE DATA,ACK,CVC=1 COMMAND 
3;SET UP P4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
;WAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;8R, IF OK 
sERROR COUNT 
s;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 806 
. WORD WRTERR 
. WORD PKTSSR 


;LOOP IF SELECTED 
TRAP Csc 


sCLP1 
325-APR-83 REV B - DELAY FOR TAPE TO STOP 
325-APR-83 REV B - DELAY ROUTINE CALL 


-WORD O 

MOV LSOLY,(PC)- 
-WORD O 

DEC -6(PC) 

BNE .-4 

DEC -22(PC) 

BNE .-20 


;BUMP COUNTER DOWN 

sBR, IF MORE DELAY TO GO 

;SET SIZE OF TRANSFER 

;sWRITE DATA,ACK,CVC*1 COMMAND 
;sSET UP R4 WITH PACKET ADDRESS 
;sCLEAR COUNTER 

;SET DROP DEAD COUNTER VALUE 
s ISSUE COMMAND 

sGET TSSR CONTENTS 

sCHECK FOR SSR SET 

;BR, IF SSR IS SET 

sBUMP CYCLE COUNTER 

;CUT NUMBER OF LOOPS DOWN 


-WORD O ; 
MOV L$OLr,(PC)- 
-WORD. O 

DEC 6(PC) 

BNE -4 

DEC 22cPC) 

BNE Ps 


s;BUMP DROP DEAD COUNTER 
;8R, IF THERE [IS STILL TIME 
;SET. UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK | 

~ gERROR COUNT 


: 


Pu 


TEST 


53235 


074164 
074164 
074166 
074170 
074172 
074174 
074174 
074176 
074204 
074212 
074216 
074222 
074224 
074230 
074232 
074232 
074234 
074236 
074240 
074242 
074242 
074244 


074416 


TEST 1 - HARDWARE TEST 
8: RECORD 


BUFFERING 


104456 
001447 
076565 
012126 


104406 
013737 
052737 
012704 
004737 
103407 
005257 
010001 


104456 
001450 
005052 
012114 


012126 


104406 
013701 
013702 
020102 
003406 


002174 
000010 
075560 
010742 


002214 


075730 
000001 
002116 
177772 
177756 
075732 
oenet 


002214 


075726 
075730 


075600 
075600 


075706 
075700 


075732 


1008; 


1108: 


1208: 


1308: 


140$: 


1-8 TEST MACRO M1115 06-FEB-84 


ERRHRD 


D16 


18:04 


ERRNO, T56WDE ,PKTSSR 


UNITN, T360SW 
OBITS, 1560SW 
@TSEPACKET ,R4 
PC ,WRTICHR 
110$ 

FATFLG 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


03490. , 13657 
9140005, T36Pk - 
OT36PK3,R4 
T36CNU 
#1000. , T356D0L 
R4, TSOBCRS) 
TSSRCRS),R1 


T36DL Y 

1208 

@SSR RO 

R1,R2 

140$ 

FATFLG 

ERRNO ,WRIERR,PKTSSR 


T36CNT,R1 


TE6CNULR2 


R1,R2 
500% 


SEQ 198 


sTSSR INCORRECT AFTER READ DATA 
TRAP 


CSERHRD — 
-WORD 807 
-WORD T36WDE 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 


;SET UP DRIVE NUMBER | 
125-4PR-83 REV B - TURN OFF BUFFERING 
;SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sERROR COUNT 
;SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC —- 


CSERHRD 
. WORD 808 
. WORD WRTMSG 
. WORD SF IMSG 
;LO0P IF SELECTED 
TRAP CSCLPl 
3;SET SIZE OF TRANSFER 
;sWRITE DAT®,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;CLEAR COUNTER 
3;SET DROP CEAD COUNTER VALUE 
; ISSUE COMMAND 
;GET TSSR CONTENTS 
;CHECK FOR SSR SET 
;BUMP CYCLE COUNTER 
;CUT NUMBER OF LOOPS DOWN 
MOV $1,¢(PC)-+ 
. WORD 0 
. WORD @) 
DEC -6( PC) 
BNE .-4 
DEC ' ~22(PC) 
BNE .-20 
;BUMP DROP DEAD COUNTER 
;BR, IF THERE IS STILL TIME 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
:FRROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
: TRAP CSERHRD 
. WORD 809 
. WORD WRTERR 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLPl 
;GET FIRST COUNTER 
;GET SECOND COUNTER 
325-APR-83 REV B - COMPARE EM 


;BR, IF VALUES ARE CORRECT (0K) 


E16 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 SEQ 199 
TEST 8: RECORD BUFFERING 
5363 074420 005237 002214 INC FATFLG RROR COUNT 
5367 074424 ERRHRD ERRNO, T36NAS,EXPREC ; TAPE not AT CORRECT SPEED | 
074424 104456 RAP CSERHRD 
074426 001452 "WORD 810 
074430 075734 .WORD T36NAS 
074432 015554 | , WORD EXPREC 
5368 074434 300$:  CKLOOP ;LOOP IF SELECTED 
074434 104406 TRAP CSCLP1 
5369 074436 ENDSUB 4 
074436 ‘ £10071: 
074436 104403 TRAP Cs€SUB 
S370 074440 023727 002214 000017 CMP FATFLG,@15. ;IS ERROR COUNT AT 25 
5371 074446 103402 BLO 999$ ;BR, IF LESS THAN 25 
5372 074450 004737 017262 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
5373 074454 9993: 
5374 3° 
5375 3 
S376 ;TEST 8, SUBTEST. 2 
5377 ; . 
5378 ; | 
5379 ; THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
5380 ; AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY 
5381 ; CONTROLLED BY THE EXTENDED -CHARACTERISTICS DATA WORD. IF THE 
5382 ; M7196 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
5383 ; (AS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
5384 ; INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
5385 ; WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
5386 ; BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN ~ 
5387 ; PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
coos ; ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 
; . 
5390 : VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
5391 ~ ; PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 
5392 ; PERFORMED: 
5393 ; ; 
te ’ : 1. THE TAPE IS REWOUND. 
3 
5396 : _2. BUFFERING IS DISABLED AND | LOW TAPE SPEED IS SELECTED 
soee ; (VIA WRITE CHARACTERISTICS COMMAND). 
e 
5399. ; 3. AN INITIAL RECORD IS ET TON ONTO THE TAPE IN ORDER TO 
zaee ; MOVE THE TAPE OFF BOT 
, : 
5402 ; ‘4, THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
3408 Ca a TAPE TO REPOSITION AND COME TO REST 
é 
3405 ; S. A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K,? 
3406 ; IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE 
5407 . ; TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
5406 © ; SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS 
5409 ; DISABLED. 
5410 ; 
ote ; 6. BUFFERING IS ENABLED. 
é 
5413 ; . THE WRITE DATA COMMAND IS AGAIN ISSUED, wrTn THE SAME 
pee ; ; . BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
1 ; 


COMPLETION IS AGAIN MEASURED, 


F1l6 


TEST L - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 
TEST 8: RECORD BUFFERING 


5458 
5459 


074454 
074454 
074454 
074456 
074462 
074466 
074472 
074500 
074504 
074510 
074512 
074512 


‘074516 


074520 
074524 
074526 
074532 
074534 
074540 
074542 
074546 
074550 
074554 
074556 
074556 
074560 
074562 
074564 
074566 
074574 
074602 
074606 
074612 
074614 
074620 
074622 
074622 
074624 
074626 
074630 


. 074632 


074632 
074634 
074640 


104402 
004737 
004737 
004737 
012737 
005037 
004737 
103426 


012727 
000000 
013727 
000000 


012114 


104406 
004737 
103407 


100740 
101032 
101074 
176750 
075726 
016054 
000250 
002116 
177772 
177756 
075732 


002214 


002174 
000040 
075560 
010742 


002214 


011074 


075732 


075600 
075600 


10$: 


20s: 


25%: 


SEQ 200 


THE COMPLETION TIMES MEASURED FOR THE NON-RUFFERED AND 


BUFFERED CASES ARE COMPARED. 


IT IS VERIFIED THAT THE 


TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
THAN THAT MEASURED FOR THE BUFFERED CASE. 


THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 
RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN 


THE RANGE 20 THROUGH 3. 


PC, T36REST 


PC ,SOF INIT 
20$ 
250 


ERRNO, SF IERR, SF IMSG 


UNITN, T360SW 
oBITS, T360SW 
@TS6PACKET,R4 
PC ,WRICHR 


RO, 
ERRNO, WRIMSG, SF IMSG 


PC ,REWIND 
a 


SK, 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T8.2: 


TRAP CsBSUB 

3;SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

;SET UP DELAY COUNTER 

;CLEAR COUNTER 

300 INITIALIZE ON CONTROLLER 

;B8R IF INIT WAS OK 

;DELAY ABOUT .25 SEC 
MOV #250,(PC)->+ 
. WORD 0 
MOV L$SOLY,.CPC)-+ 
. WORD 0 ' 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

;BUMP COUNTER 

;BR, IF COUNTER NOT DONE 

;ERROR COUNT 

;CONTENTS OF TSSR REGISTER 

;sFATAL ERROR TSSR WAS NOT OK , 
TRAP CSERDF 
. WORD 811 ‘ 
. WORD SFIERR ~- 


WORD SFIMSG 
;SET UP DRIVE NUMBER 
;TURN ON HIGH SPEED 
;SUBROUTINE NEEDS PACKET ADDRESS 


» s ISSUE WRITE CHARACTERISTICS 


;BR, IF COMMAND ISSUED OK 
sERROR COUNT 

;SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC + 


CSERHRD 
WORD 812 
‘WORD WRTMSG 
WORD SFIMSG 
;LOOP IF SELECTED 
TRAP =—s_ CSCLP 1 


;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


tid 


EST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 
EST 8: RECORD BUFFERING 


5460 
5461 
5465 


074642 
074644 


010004 
005237 


104456 
001455 
077141 
012126 


012114 
104406 
012737 


013737 
012737 


012126 


104406 
012737 


012727 


002214 


075610 
000002 


002214 


002174 
000030 
075560 
010742 


002214 


003720 
003116 
140005 
075700 
000000 
016350 
000002 


000200 


002214 


000005 
000001 


075600 
075600 


075706 
075702 
075700 


075732 


30$: 


40$: 


50$: 


60$: 


708: 


MOV 
INC 
ERRHRD 


Ci<t OOP 


MOV 
DELAY 


18:04 


RO,R4 


FATFLG 
ERRNO, TS6RWN,PKTSSR 


G16 


T36BFR+6,R1 


G 
ERRNO, T36B0T ,EXPREC 


UNITN, T360SW 


OBITS!BIT4, T360SW 


@TS6PACKET ,R4 


PC ,WRTCHR 


50$ 


FATFLG 
RO,R1 
ERRNO ,WRTMSG, SF IMSG 


#2000. , T36SZ 


FREE, T356WB 


#140005, T36PKS3 


OTS6PKS,R4 


R4,TSOBCRS) 


PC ,WAITF 


TSSRCRS),R1 


@SSR,R2 


FATFLG 
ERRNO,WRTERR,PKTSSR 


#05.,T36DLY 


1 


SEQ 201 


;SET UP REWIND PACKET ADDRESS 
;ERROR COUNT 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 
. WORD 813 
. WORD T36RWN 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSsCLPl 
;PICK UP xXSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
;ERROR COUNT 
; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 814 
. WORD T36B0T 
. WORD EXPREC 
;LOOP IF SELECTED 
TRAP CS$CLPl 


;SET UP ORIVE NUMBER 
325-APR-83 REV B - TURN ON THE BUFFERING 
; SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;B8R, IF COMMAND ISSUED OK a 
;ERROR COUNT 
;SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC ko y 


CSERHRD 
. WORD 815 
. WORD WRTMSG 
. WORD SF IMSG 
;LO0P IF SELECTED 
TRAP CSsCLPl 
;SET UP RECORD SIZE 
;ADDRESS OF WRITE BUFFER 
;sWRITE DATA,ACK,CVC=*1 COMMAND 
;SET UP R&4 WITH PACKET ADDRESS 
; ISSUE COMMAND 
;sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
;ERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 816 
. WORD WRTERR 
. WORD PKTSSR 


;LOOP IF SELECTED 
TRAP OC 


sCLP1 
;25-APR-835 REV B - DELAY FOR TAPE TO STOP 
;25-APR-83 REV B - DELAY ROUTINE CALL 


H16 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1115 06-FEB-84 18:04 
BUFFERING 


TEST 8: RECORD 


5544 
5545 


075066 
075070 
075074 
075076 
075102 
075104 
075110 
075112 
075116 
075120 
075126 
075134 
075140 
075144 


012727 
000000 
013727 
000000 
005367 


001375 
005367 


012114 


104406 
012737 
012737 


002116 
177772 
177756 
075732 


075726 
000001 
002116 
177772 
177756 
075732 
000200 


002214 


002174 
000010 
075560 
010742 


002214 


006642 
140005 


075706 
075700 


075732 


075600 
075600 


075706 
075700 


mh, 


— 


803: 


100$: 


110$: 


CKLOOP 


MOV 
MOV 


T36DLY 

70$ 

03490. ,136S2Z 
#140005, T36PK3 
OT36PK3,R4 
T36CNT 

#1000. , T360LY 
R4, TSDB(RS ) 
TSSR(RS),R1 
@SSR,R1 

90 


$ 
T36CNT 
1 


T360L Y 


ERRNO, T36WDE , PK TSSR 


UNITN, T360SW 
BITS, T3560SW 
@TS6PACKET,R4 
PC,WRTCHR 
110$ 7 

ht 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


#3490. ,136S2Z 
#140005, T36PKZ 


SEQ 202 
. WORD 0 | ; 
. WORD 0 
DEC -6(PC) 
BNE -4 
DEC -22(PC ) 
BNE -20 
;BUMP COUNTER DOWN 
;BR, IF MORE DELAY TO GO 
;SET SIZE OF TRANSFER 
sWRITE DATA,ACK,CVC*=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;CLEAR COUNTER 
;SET DROP DEAD COUNTER VALUE 
; ISSUE COMMAND 
;GET TSSR CONTENTS 
;CHECK FOR SSR SET 
;BR, IF SSR IS SET 
;BUMP CYCLE COUNTER 
;CUT NUMBER OF LOOPS DOWN 
. WORD 0 
. WORD 0 
\ DEC -6(PC) 
BNE -4 
DEC -22(PC) 
BNE .-20 
;BUMP DROP DEAD COUNTER 
~;BR, IF THERE IS STILL TIME 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
«  3ERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 817 
-WORD _T36WDE ~ 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPl 


;SET UP DRIVE NUMBER 

3;25-APR-83 REV B - TURN OFF BUFFERING 
; SUBROUTINE NEEDS PACKET ADDRESS 

; ISSUE WRITE CHARACTERISTICS 

;BR, IF =e ISSUED OK 


;SAVE CONTENTS OF 
;sWRITE CHARACTERISTISC ao oy 


CSERHRD 
-WORD 818 
.WORD WRITMSG 
-WORD SFIMSG 
;LOOP IF SELECTED 
TRAP CSCLPl 


;SET SIZE OF TRANSFER 
sWRITE DATA,ACK,CVC=1 COMMAND 


I16 


TEST 1 - HARDWARE pee ark” TEST MACRO M1113 06-FEB-84 18:04 SEQ 205 


TEST 8: RECORD BUFFER 


5546 075342 012704 075700 MOV OT3S6PK3,R4 ;SET UP R4 Sg PACKET ADDRESS 

9547 075346 005037 07573 CLR TS6CNU sCLEAR COUNTE 

5548 075352 012737 001750 075732 MOV #1000. , TS6DLY sSET DROP DEAD COUNTER VALUE 

3549 075360 010465 000000 MOV R4,TSOBCRS) ; ISSUE COMMAND 

3550 075364 016501 000002 120%: MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

3551 075370 032701 000200 BIT @SSR,R1 ;CHECK FOR SSR SET 

S552 075374 001021 BNE 130$ ;BR, IF SSR IS SET 

5553 075376 005237 075730 INC T36CNU ;BUMP CYCLE COUNTER 

5554 075402 DELAY 1 sCUT NUMBER OF LOOPS DOWN 
075402 012727 000001 MOV #1,(PC)-> 
075406 000000 -WORD O 
075410 013727 002116 MOV LsOLy,(PC)- 
075414 000000 .WORDB O 
9075416 005367 177772 DEC -6( PC} 
075422 001375 BNE -4 
075424 005367 177756 DEC -22(PC) 
075430 001367 BNE . -20 

3555 075432 005337 075732 DEC T360LY ;BUMP DROP DEAD COUNTER 

S556 075436 001552 BNE 120$ ;BR, IF THERE IS STILL TIME 

5557 075440 012702 000200 130$: MOV @SSR ,R2 ;SET UP EXPECTED 

5558 075444 020102 CMP R1,R2 ;ARE THEY EQUAL 

5559 075446 001406 BEQ 140$ ;BR, IF OK 

5560 075450 005237 002214 INC FATFLG ;ERROR COUNT 

5564 075454 ERRHRD ERRNO,WRTERR,PKTSSR ;7SSR INCORRECT AFTER WRITE DATA 
075454 104456 TRAP CSERHRD 
075456 001463 -WORD 6819 
075460 005107 -WORD WRTERR 
075462 012126 -WORD PKTSSR 

S565 075464 140$: CKLOOP ;LOOP IF SELECTED 
075464 104406 TRAP.” CSCLP1 

3566 075466 013701 075726 % MOV TS6CNT ,R1 ;GET FIRST COUNTER 

5567 075472 013702 075730 MOV T36CNU,R2 ;GET SECOND COUNTER 

59568 075476 020102 CMP R1,Re 325-APR-83 REV B. - COMPARE EM 

2569 075500 003406 BLE 300$ ;BR, IF VALUES ARE CORRECT (OK) 

3570 075502 005237 002214 INC FAIFLG ;ERROR COUNT 

5574 075506 ERRHRD ERRNO, T36NAS,EXPREC ;TAPE NOT AT CORRECT SPEED 
075506 104456 TRAP CSERHRO 
075510 001464 -WORD 820 
075512 075734 -WORD TS36NAS 
075514 015554 -WORD EXPREC 

5575 075516 300$ : CKLOOP ;LOOP IF SELECTED 
075516 104406 TRAP CsCLPi 

53576 075520 ENOSUB 
075520 L1007e: 
075520 104403 TRAP CsESUB 

5577 075522 023727 002214 000017 CMP FATFLG,@15. ;IS ERROR COUNT AT 25 

2578 075530 103402 BLO 999% ;BR, IF LESS THAN 25 

29579 075532 004737 017262 JS: PC ,CKDROP ;TRY TO DROP THE ‘INI* 

5580 075536 999%: 

5581 ; 

5562 ; 

5583 , ; 

5584 075536 004737 016536 JSR PC,TSTLOOP « 300 WE NEED TO ITERATE TEST 

5585 075542 103002 BCC 163% ;BR, IF NO LOOP REQUIRED 

5586 075544 000137 073400 JMP T36LO00P ;EXECUTE AGAIN 

5587 075550 163%: 

5588 075550 EXIT TST ;ALL DONE THIS TEST 


a 


J16 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 SEQ 204 
TEST 8: RECORD BUFFERING 
075550 104432 TRAP CSExIT 
eons 075552 005544 -WORD 1L10070-. 
3° 
soe ;LOCAL STORAGE FOR THIS TEST 
= 
5593 075560 .*¢<,+10>€177770 
5595 075560 T36PACKET: ;COMMAND PACKET FOR TEST 
5596 075560 100904 .WORD 100004 ;WRITE CHARACTERISTICS COMMAND, WITH , ACK 
3597 075562 075570 .WORD TS36DA‘4 ;ADDRESS OF CHARACTERISTICS BLOCK 
59598 075564 000000 .WORDB O 
5599 075566 000012 | -WORD 10. ;STARTING VALUE OF BLOCK SIZE 
5600 075570 TS6DATA: ;CHARACTERISTICS DATA BLOCK 
5601 075570 075602 . WORD 1 S6BFR sADDRESS OF MESSAGE BUFFER 
5602 075572 000000 .WORDB 0O 
5603 075574 000024 .WORDB 20. ;sLENGTH OF MESSAGE BUFFER 
5604 075576 000000 -WORD O 
5605 075600 000000 T360SW: .WORD O ;SELECT DRIVE O 
+94: 075602 T36BFR: .BLKW 25. sMESSAGE BUFFER 
t4e4 ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
a 
5611 075670 -*<,+10>€177770 
5613 075670 T36PKe2: 
5614 075670 -WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
5615 075672 075710 -WORD T368F2 ;ADDRESS OF SELECT BLOCK DATA 
5616 075674 000000 -WORD O 
ae 075676 000006 .WORD 6. ;SIZE OF DATA PACKET 
3622 075700 T36PK3: 
3623 075700 100005 -WORD 100005 ;sREREAD COMMAND, AND ACK 
3624 075702 T36RB : | 
3625 075702 003116 T36WB: .WORD FREE ;ADDRESS OF WRITE BUFFER 
3626 075704 000000 -WORDB O 
3627 075706 000000 T36SZ: .WORD 0O ;SIZE OF BUFFER CEXTENT) 
5628 EVEN 
5629 ; 
5630 ; 
5631 3 
5632 075710 T36BF2 
5633 075710 010 T368SO: .BYTE 10 ;BSELO AREA 
5634 075711 200 T36B6S1: .BYTE 200 ;BSEL1 AREA 
5635 075712 000000 T36S2: .WORD O ;SEL 2 AREA 
acne 075714 000000 T36S35: .WORD 0 s;DATA AREA 
3 
5638 ; 
5639 EVEN 
eat ;TAPE MOTION PACKET COMMAND VALUES 
5642 075716 100205 T36RN: .WORD 100205 sREREAD DATA (NEXT) 
59643 075720 100605 T36WOR: .WORD 100605 ;sREREAD DATA RETRY 
39644 075722 102205 T36CON: .WORD 102205 sWRITE CONTINOUS 
39645 075724 177777 -WORD 177777 sEND OF DATA 
5646 
5647 ; 
5648 075726 T36CNT: .WORD O ;TAPE TIMER COUNTER STORAGE AREA 
5649 075730 000000 T36CNU: .WORD O ;TAPE TIMER COUNTER STORAGE AREA 
5650 075732 000000 T36D0LY: .WORD O ;DELAY COUNTER 


TEST 


100740 
100740 
100744 
100750 
100754 
100760 
100762 
100766 
100772 
100774 
101000 
101002 


i - HARDWARE TEST 
TEST 8: RECORD BUFFERI 


012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 


1 - 
NG 


075560 
00004 
075570 


000012 
075602 


000024 
000000 


re 
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K16 


SEQ 205 


3¢ 
;LOCAL TEXT MESSAGES FOR TEST 


TS6NAS: .ASCIZ 
T36WNG: .ASCIZ 
T36RDF: .ASCIZ 
T36RRF: .ASCIZ 
T36SC: ASCIZ 
T36LOR: .ASCIZ 
TS6WDOF: .ASCIZ 
T36L0Q@: .ASCIZ 
T36SSR: .ASCIZ 
T36WDE: .ASCIZ 
T36B0T: .ASCIZ 
T36TIM: .ASCIZ 
T36EOT: .ASCIZ 
T36TM: ASCIZ 
T36RWN: .ASCIZ 
T36RNC: .ASCIZ 
T36AM3: .ASCIZ 
T360FL: .ASCIZ 
T36WOD: .ASCIZ 
T36WOC: .ASCIZ 
T36VCK: .ASCIZ 
T36BA: ASCIZ 
T36WSS: .ASCIZ 
T3CLON: .ASCIZ 
T36LOP: .ASCIZ 
T36PBP: .ASCIZ 
T36TRL: .ASCIZ 
T36NEF: .ASCIZ 
T36SCF ASCIZ 
T36TSA ASCIZ 
T36WRF: .ASCIZ 
T36DTA: .ASCIZ 
TST36ID: 

.EVEN 


3; * 


‘Improper Tape Controller Buffering Speed’ 

‘Tape Position Incorrect After REREAD Previous (OPP=-1)’ 
‘TSSR Incorrect After READ DATA Command’ 

‘REREAD Previous (Space Reverse, Read Forward) Command Fai led’ 
‘POSITION (Space Command) Failed, TSSR Not Correct’ 

‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

‘TSSR Not Correct After Illegal Mode Bits Set’ 

‘Tll l Mode Bits, Failed To Set ILC Bit In xSTO' 

‘REREAD COMMAND Not Accepted’ 

‘TSSR Not Correct After WRITE DATA Command’ 

‘Tape Not At BOT After oe Command (BOT Not Set In XSTO)’ 
‘WRITE DATA RETRY''S Erase Tape Not Long En 

‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT 

‘TSSR Not Correct After REREAD COMMAND Re ject’ 

‘Rewind (POSITION) Command Not Accepted’ 

‘RAM Error, Correct Date Pattern Not In Ram’ 

‘TSSR Init. Failed After REREAD COMMAND’ 

‘Drive 7 Select Failed To Set "OFL” In TSSR’ 

‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
‘TSSR Not Correct After REREAD DATA Command’ 

‘CvC Set, Didn'‘'t Reset VCK In Mess Buffer’ 

‘TSBA Not Correct After REREAD DATA Command’ 

‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
‘Reading Long Record Failed To Set RLL Bit In XSTO’ 

‘Reading Long Record Failed To Set RLS Bit In XSTO’ 
‘Residual aes Count Incorrect After Short Record Read’ 
caren a oe Record Failed To Give Tape Status Alert’ 
‘WRITE DAT ETRY, At First Record, Failed To Set RIB Bit XST3' 
‘TSSR Not Correct After SPACE RECORDS Command’ 

‘TSSR Not Correct After WRITE DATA RETRY, Into BOT’ 

‘TSSR Not Correct After WRITE DATA RETRY Command’ 

‘Data Compare Error, Data Read From Tape Not Equal To Written’ 
-ASCIZ ‘Record Buffering’ 









" - 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;sWRITE SUBSYSTEM MEMORY COMMAND 


T36REST: 


;SAVE THE REGISTERS 


&T3S6PACKET,R1 ;START OF THE PACKET 
#100004 ,(R1)> ;WRITE SUBSYSTEM MEM. WITH ACK, 
@T36DATA,CR1)> s;ADDRESS OF CHARAISTICS DATA BLOCK 
CR1)-+ ;EXTENDED ADDRESS 
#10.,(R1)> ;SIZE OF DATA BLOCK IN BYTES 
=e ;ADDRESS OF MESSAGE BUFFER 

1)- 
+6 Veh ;LENGTH OF MESSAGE BUFFER 

l)e 
#0 .CR1) ;SELECT DRIVE ZERO 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 


SEQ 206 
TEST 8: RECORD BUFFERING 


5708 101006 012702 000030 MOV 024. ,R2 s;NUMBER OF LOCATIONS TO BE CLEARED 
5709 101012 012762 177777 075602 643: MOV 0177777, T36BFR(R2) ;ALL ONES TC MESSAGE BUFFER 
S710 101020 005742 TST -(R2) sNEXT LOCATION 
5711 101022 022702 000000 CMP #0 ,R2 ;AT END OF LOOP YET 
S712 101026 001371 BNE 64$ ;KEEP GOING UNTIL DONE 
s715 101030 000207 RTS PC ;RETURN 
5715 101032 T36RT2: 
5716 101032 SAVREG ;SAVE THE REGISTERS 
5717 101036 012701 075670 MOV @T36PK2,R1 ;START OF THE PACKET 
5718 101042 012721 100006 MOV #100006,(R1)-+ ;WRITE SUBSYSTEM MEM. WITH ACK, 
5719 101046 012721 075710 MOV @T36BF2,(R1)>+ ;ADDRESS OF DATA BLOCK 
5720 101052 005021 CLR (R1)> ;EXTENDED ADDRESS 
5721 101054 012721 000006 MOV #6.,(R1)>+ ;SIZE OF DATA BLOCK IN BYTES 
5722 101060 005021 CLR Ri)» 
5723 101062 012701 075710 MOV @T36BF2,R1 sPOINT TO DATA SEL AREA 
5724 101066 005021 CLR (R1)> 
$725 101070 005011 CLR (R1) 
5726 101072 000207 RTS PC ;RE TURN 
5727 101074 T36RT3: 
S728 101074 SAVREG ;SAVE REGISTERS 
5729 101100 012701 075700 MOV @T36PK3,R1 ;SET UP POINTER ADDRESS 
5730 101104 005021 CLR (R1>: ;COMMAND SPACE 
5731 101106 005021 CLR (R1)+ ;ADDRESS OF. DATA BLOCK 
5732 101110 005021 CLR (R1)+ ;EXTENDED ADDRESS 
5733 101112 005011 CLR (R1) sSIZE OF DATA TRANSFER BLOCK 
5734 101114 000207 RTS PC ;RE TURN 
5735 101116 ENDTST 
101116 L10070: 
101116 104401 TRAP CSETST 
5736 .SBTTL TEST 9: FUNCTION TIMING 
5737 3+ 
5738 3 
5739 ;THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
5740 s;RECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
5741 ;AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 
5742 ;SPACE RECORDS COMMAND WITH A RECORD COUNT OF 80 OR MORE, AND A 
5743 ;SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE, OPERATE THE 
5744 ;TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
5745 ;REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
5746 ;TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMSER OF 
5747 ;DIFFERENT TEST RECORD LENGTHS. 
5748 ; 
5749 : 
5750 # 
5751 101120 BGNTST 
101120 T9:: 
5752 101120 012737 006354 002172 MOV #EPRT1,EPRTSW :PRIMARY ERRUR MESSAGE 
5753 101126 004737 017354 JSR PC ,KTOFF ; TURN KT OFF 
5758 101132 012700 105343 MOV #TST37ID,RO sASCII MESSAGE TO IDENTIFY TEST 
5759 101136 004737 01657C JSR PC, TSTSETUP ;00 INITIAL TEST SETUP 
5760 101142 012737 000005 002210 MOV #5 ,LOOPCNT ;PERFORM S ITERATIONS 
S763 101150 005037 102406 CLR T37CNT ;CLEAR TAPE RECORD COUNTER 
3 * 
5763 ; 
5764 ;TEST 9, SUBTEST 1 


TEST 1 - HARDWARE 
ST 9: 


E 
TE 


FUNCT 


101276 


101304 
101310 


1044ce2 


012727 
000000 
013727 
000000 


013737 


012704 
004737 
103407 
005237 
010001 


104456 
001606 


005052 
012114 


005237 
104456 


000250 
002116 
177772 
177756 
102412 
002214 


002174 


162240 
010742 


002214 


011074 
000002 
002214 


102412 


102260 


T37LOOP: 
B 


10$: 


20$: 


23$: 


GNSUB 


ERRHRD 


M16 


TEST 1-8 TEST MACRO M1113 06-FEB-84 18:04 
TON TERING 


INTRECV 

T37CNT 

T37CNU 
PC,T37REST 
PC,T37RT2 
PC,T37RTS 
#65000. , T370LY 
TF athenes': 


2 
250 


T370LY 
10$ 
FATFLG 


RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T37DSW 
@T37PACKET,R4 


RO,R1 | 
ERRNO,WRTMSG, SF IMSG 


PC ,REWIND 

30$ 

TSSRCRS),R1 

RO,R4 

FATFLG 

ERRNO, T37RWN,PKTSSR 


SEQ 207 


;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T9.1: 


TRAP 
; INTERRUPT INDICATOR 


;TIMER FOR WRITE DATA SPACING 


CsBSUB 


; TIMER FOR WRITE DATA RETRY SPACING 


;SET COMMAND PACKET 

UP OTHER COMMAND PACKET 
UP OTHER COMMAND PACKET 
;SET UP DELAY COUNTER 

300 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

;DELAY ABOUT .25 SEC 


;BUMP COUNTER 
;BR, IF COUNTER NOT DONE 
;ERROR COUNT 

;CONTENTS OF TSSR REGISTER 

;sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
. WORD 

;SET UP UNIT NUMBER 


; SUBROUTINE NEEDS PACKET ADDRESS 


; ISSUE WRITE CHARACTERISTICS 

;8R, IF COMMAND ISSUED OK 
;ERROR COUNT 

;SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC FAILED 


;LOOP IF SELECTED 


TRAP 
;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
;GET TSSR CONTENTS 
;GET PACKET ADDRESS 
;ERROR COUNT 
;REWIND NOT ACCEPTED 
TRAP 


ee 
-6(PC) 
4 


“22(PC) 
-=20 


CSERDF 
901 

SFIERR 
SF IMSG 


CSERHRD 
90 


2 
WRTMSG 
SF IMSG 


CSsCLPl 


CSERWRD 











TEST 1 - MAROWARE TEST 1-8 TEST MACRO M1115 06-FEB-84 16:04 SEG 206 
TEST 9%: FUNCTION TIMING 

101360 001607 903 
101362 105565 T37RWN 
101364 012126 PKTSSR 

S812 101566 308: CKLOOP sLOOP IF SELECTED 
1013566 104406 Csc.Pi 

5613 101370 013701 102270 MOV TS7BFR+6,R1 sPICK UP XSTO 

5814 101374 010102 MOV R1,R2 sSET UP EXPECTED 

5815 10137 0527 000002 BIS #6IT1,R2 ;SET BOT BIT IN EXPECTED 

5816 101402 020102 chp R1,Re2 sD0ES EXP © REC'D 

5817 101404 001406 BEG 40% sBR, IF EQUAL (OK) 

5818 101406 005257 002214 INC FATFL sERROR COUNT 

S822 101412 ERRHRD ERRNO, T37B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
101412 104456 TRAP CSERHRD 
101414 001610 -WORD 904 
101416 105261 «WORD 13760T 
101420 015554 EXPREC 

S823 101422 40%: CK OOP sLOOP IF SELECTED 
101422 104406 TRAP CScCLPi1 

$624 101424 0127035 000144 MOV #100. ,R5 sNUMBER OF RECORDS TO BE WRITTEN 

5825 101430 0135737 003116 102562 MOV FREE, 137wWe8 sSTARTING WRITE BUFFER ADDRESS 

5826 101436 012737 140005 1023560 65%: MOV #140005, T37PKS sWRITE DATA,ACK.CVC=1 COMMAND 

5827 101444 012704 1023560 MOV @TS7PKS,R4 ;SET UP R4 WITH PACKET ADDRESS 

$828 101450 012737 001150 1023566 MOV #600. ,137S< ;SET UP RECORD SIZE IN PACKET 

S829 101456 010465 MOV R4, TSOBCRS) s ISSUE COMMAND 

5830 192462 004737 016550 JSR »WAITF sWAIT FOR SSR TO SET 

5831 101466 016501 9000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

S832 101472 012702 000200 MOV @SSR ,R sSET UP EXPECTED 

3833 101476 020102 chp R1,Re2 sARE THEY EQUAL 

5834 101500 001406 BEQ 708 sBR, IF OK 

3835 101502 005237 002214 INC FATFLG s;ERROR COUNT 

5839 101506 FRRHRD ERRNO, TS7WOC,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
101506 104456 TRAP CSERHRD 
101510 001611 -WORDB 905 
101512 104121 -WORD T37wWOC 
101514 012126 ~«WORD PKTSSR 

5840 101516 708: CKL_OOP ;LOOP IF SELECTED 
101516 104406 TRAP CscLPi 

5841 101520 005305 DEC RS sDEC RECORD COUNTER 

3842 101522 001345 BNE 65% 3BR, IF MORE RECORDS TO WRITE 

58435 101524 004737 011074 JSR PC ,REWINO ;CALL TAPE REWIND COMMAND 

5844 101530 103411 6cS 130% :BR, IF NO PROBLEM 

5845 101532 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

5846 101536 010004 MOV ~R4 ;GET PACKET ADORESS 

5847 101540 005237 002214 INC FATFLG sERROR COUNT 

5851 101544 ERRHRD ERRNO, T37RWN,PKTSSR sREWIND NOT ACCEPTED 
101544 104456 TRAP CSERHRD 
101546 001612 -WORD 906 
101550 103565 .WORD T37RWN 
101552 012126 -WORD PKTSSR 

S852 101554 130%: CKLOOP sLOOP IF SELECTED 
101554 104406 TRAP CscCiPi 

5853 101556 015701 102270 MOV TS7BFR+6,R1 sPICK UP xSTO 

5854 101562 010102 MOV R1,R2 ;SET UP EXPECTED 

5855 101564 052702 000002 BIS OBIT1,R2 ;SET BOT BIT IN EXPECTED 

5856 101570 020102 CMP 1,Re ;D0ES EXP = REC'D 

5857 101572 001406 BEQ 1408 ;BR, IF EQUAL (OK) 

5858 101574 005237 002214 INC FATFLG sERROR COUNT 


Cl 
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5862 
10 


102010 
102012 


013727 
000000 


104456 
001616 
103261 


002116 
177772 


177756 


0C00V< 
v00200 


002214 


011074 


000002 
002214 


102270 
000002 


002214 


1408: 


1608: 


1708: 


ERRHRD 


ERRNO, 157B0T ,EXPREC 


@TS7PKS,R4 
@31.,1357RB 
#140010, TS7PKS 
R4, TSOB(RS ) 
TS7CNT 

1 


sh teats 


FATFLG 
ERRNO, T37SCF ,PKTSSR 


PC ,REWIND 

1708 

RO,R4 

TSSR(RS), Ri 

FATFLG 

ERRNO, TS7RWN,PKTSSR 


T37BFR+6,R1 
R 


FATFLG 
ERRNO, TS57B0T ,EXPREC 


SEQ 209 

; TAPE NOT AT BOT AFTER st 
. WORD 
. WORD 
. WORD 

;L00P IF SELECTED 
TRAP 


;SET UP PACKET ADORESS 

;SET UP RECORDS TO SPACE OVER 
sACK .CvC#1 

; ISSUE 
;BUMP TIMER 
;sDELAY ABOUT 100US 


DEC 


BNE 
3GET TSSR 
;CHECK FOR TSSR'S SSR SET 
sKEEP COUNTING UNTIL SET 
;SET UP EXPECTED 
;WAS EVERYTHING OK 
;8R, IF ALL IS WELL 


sERROR COUNT 
;SPACE FORWARD DION’ T — 


. WORD 
;L00P IF SELECTED | 

TRAP 
;CALL TAPE REWIND COMMAND 
;8R, IF NO PROBLEM 


;GET PACKET ADDRESS 
;GET STATUS FROM TSSR 


sERROR COUNT 
;REWIND NOT ACCEPTED 


TRAP 
. WORD 
. WORD 
. WORD 

;L00P IF SELECTED 
TRAP 

;PICK UP xSTO 

;SET UP EXPECTED 

3;SET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

‘BR, IF EQUAL (OK) 

;ERROR COUNT 

; TAPE NoT AT BOT AFTER REWIND 
TRAD 
. WORD 
. WORD 


CSERHRD 
907 
T3760T 
EXPREC 


CscLPl 


» SPACE FORWARD COMMAND 


oo 
LSOLY,CPC)-> 
-6(PC) 

.-4 
-22CPC) 


CSERHRO 
908 


T37SCF 
PKTSSR 


CsCiP1 


CSsERHMRD 


909 
T37RWN 
PKTSSR 


CsCLPl 
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102220 
102224 


015554 


104406 
012704 
012757 
012757 
010465 
005257 


012727 
000000 
013727 
000000 


002116 
177772 
177756 


000002 
000200 
000200 


002214 


002214 
017262 


016536 


102362 
102560 


000017 


1758: 


2508: 
2528: 


2608: 


3008: 


CKL OOP 


OTS7PKS,R4 
061 


R4, TSOBCRS 
— 


TSSRCRS),R 
@SSR ,R1 


FATFLG 
ERRNO, 1T37SCF ,PKTSSR 


TS7CNT,R1 
T37CNU,R2 
@#000077,R1 
@000077,R2 
R1,R2 

300% 
FATFLG 


ERRNO, T37TIM,EXPREC 


D1 


215 
#140010, T37PKS 


) 


1 


FATFLG,@15. 
999% 


PC ,CKOROP 


PC, TSTLOOP 
163% 


SEQ 210 


. WORD 
sLOOP IF SELECTED 


TRAP 
sSET UP PACKET ADDRESS 
sSET UP RECORDS TO SPACE OVER 


sACK .CVC*1,SPACE FORWARD COMMAND 
3; ISSUE COMMAND 
;BUMP TIMER 
sDELAY ABOUT 100US 
MOV #1,(PC)- 
MOV LSOLY,CPC)> 
-WORD O 
DEC -6(PC) 
BNE ‘6° 
DEC -22(PC) 
BNE .-20 
;GET TSSR 
sCHECK FOR TSSR‘'S SSR SET 
sKEEP COUNTING UNTIL SET 
;SET UP EXPECTED 
3;WAS EVERYTHING OK 
;B8R, IF ALL IS WELL 
sERROR COUNT 
;SPACE FORWARD DION’ T WORK OUT 
TRAP CSERHRD 
. WORD 911 
. WORD T37SCF 
.WORD PKTSSR 
;L00P IF SELECTED 
TRAP CSCLPl 
;TIME FOR WRITE SPACING 
;TIME FOR WRITE RETRY SPACING 
;SETTING UP CONSTANTS 
;SETTING UP CONSTANTS 
;CHECK FOR DIFFERENCE 
;6R, GOOD 8888 CHECK 383893 
sERROR COUNT 
3; TIME WAS NOT DIFFERENT —— 
CSERHRD 
TMORD le 
“WORD T37TIM 
-WORD EXPREC 


;LOOP IF SELECTED 


EXPREC 
CscLPl 


CsC.Pl 


RAE 
g<ceecececcecece END SUBTEST >>>>>>>>>>>> 


L10074; 
TRAP 
31S ERROR COUNT AT 25 
;8R, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


;00 WE NEED TO ITERATE TEST 
;6R, IF NO LOOP REQUIRED 


CsESUB 


El 





TEST 1 - -6 TEST MACRO M1115 -FEB. : 
TEST ‘9; FOREIGN FEAlnd a une Set 
5943 102226 000157 101154 JMP T37L00P sEXECUTE AGAIN 
5944 102252 163%: 
5945 102252 ExIT TST sALL DONE THIS TEST 
102232 104452 TRAP CSExIT 
5006 102234 003306 -WORD L10075-. 
3* 
tod sLOCAL STORAGE FOR THIS TEST 
a. 
5950 102240 .*¢,+10>€177770 
S952 102240 TS7PACKET: sCOMMAND PACKET FOR TEST 
5953 102240 100004 -WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
5954 102242 102250 TS7DATA sADDRESS OF CHARACTERISTICS BLOCK 
S955 102244 000000 0 
5956 102246 000012 ° 10. sSTARTING VALUE OF BLOCK SIZE 
5957 102250 TS7DATA; sCHARACTERISTICS DATA BLOCK 
5958 102250 102262 , T37BFR sADORESS OF MESSAGE BUFFER 
S959 102252 0 
5960 102254 000024 20. sLENGTh OF MESSAGE BUFFER 
5961 102256 000000 : 0 
962 102260 000000 T370SW: . 0 ;SELECT ORIVE O 
Bees 102262 TS7BFR: .BLKW 25. sMESSAGE BUFFER 
; 
ta ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
: 
5968 1023550 ~*¢,°10>€177770 
5970 102350 T37PK2: 
5971 102350 100006 -WORD 100006 ;sWRITE SUB SYS MEM COMMAND, AND ACK 
3972 102352 102370 .WORD 1378F2 sADDRESS OF SELECT BLOCK DATA 
5973 102354 WORD 0 
abe 102356 000006 WORD 6. ;SIZE OF DATA PACKET 
5979 102360 T37PKS; , 
5980 102360 100005 -WORD 100005 ;REREAD COMMAND, AND ACK 
3981 102362 T37RB: 
5982 102362 003116 T37WB: .WORD FREE ;ADDRESS OF WRITE BUFFER 
5983 102364 000000 WORD O 
5984 102366 000000 T37SZ: .WORD O ;SIZE OF BUFFER CEXTENT) 
5985 EVEN 
5986 j 
5987 ; 
5988 ; 
5989 102370 T376F 2: 
5990 102370 010 T378SO: .BYTE 10 ;BSELO AREA 
5991 102372 200 T37BS1: .B6YTE 200 ;BSEL1 AREA 
5992 102372 000000 T37S2: .WORD O ;SEL 2 AREA 
bbe, 102374 000000 T3785: .WORD O ;DATA AREA 
: 
5995 : 
5996 -EVEN 
tea ;TAPE MOTION PACKET COMMAND VALUES 
5999 102376 100205 T37RN: .WORD 100205 sREREAD DATA (NEXT) 
6000 102400 100605 T37WOR;: .WORD 100605 sREREAD DATA RETRY 
6001 102402 102205 TS7CON: .WORD 102205 sWRITE CONTINOUS 
one 102404 177777 . WORD 177777 sEND OF DATA 


FL 
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TEST 9: FUNCTION TIMING 


SEQ 212 


teovens .WORD O 


;TAPE TIMER COUNTER STORAGE AREA 
TS7CNU: .WORD 0 


;TAPE TIMER COUNTER STORAGE AREA 


6007 102412 000000 ee “WORD 0 sDELAY COUNTER 

6009 S LOCAL TEXT MESSAGES FOR TEST 

6010 i 

6011 

6012 102414 tea 141 ‘Tape Position Incorrect After REREAD Previous (OPP1)' 
6013 102502 124 123 ‘TSSR Incorrect After READ DATA Command’ 

6014 102551 122 105 ‘REREAD Previous (Spece Reverse. Read Forward) Command Fai led’ 
6015 10 120 117 ‘POSITION (Space Command) Feiled, TSSR Not Correct’ 

©6016 102750 122 111 ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

6017 103000 124 123 ‘TSSR Not Correct After Illegal Mode Bits Set’ 

6018 103055 lil 154 ‘Ill l Mode Bits, Failed To Set ILC B: t In xSTO’ 

6019 103136 122 105 ‘RERE COMMAND Not Accepted’ 

6020 103172 124 123 ‘TSSR Not Correct After “WRITE DATA RETRY Command,At BOT’ 
6021 103261 124 141 ‘Tape Not At BOT After REWIND Command (BOT Not sce. In xSTO)’ 
6022 103354 127 122 ‘WRITE DATA RETRY'‘'S Erase Tape Not Long = wr 

6023 103431 122 105 ‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 

6024 103510 124 125 ‘ TSSR Not Correct After REREAD COMMAND Re ject’ 

6025 103565 122 145 ‘Rewind (POSITION) Command Not Accepted’ 

6026 103634 122 101 ‘RAM Error, Correct Dete Pattern Not In Ram‘ 

6027 103707 124 123 ‘TSSR Init. Feiled After REREAD COMMAND’ 

6028 103756 164 162 ‘Drive 7 Select Failed To Set “OFL” In TSSR’ 

60 104031 124 1235 ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
6030 104121 124 123 ‘TSSR Not Correct After REREAD DATA Command’ 

60%1 104174 103 126 ‘CvC Set. Didn''t Reset VCK In Buf Fer’ 

6032 104247 124 123 ‘TSBA Not Correct After REREAD DATA Command’ 

6033 104322 127 122 ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
60 104411 122 145 ‘Reading Long Record Failed To Set RLL Bit In XSTO’ 

6035 104473 122 145 ‘Reading Long Record Failed To Set RLS Bit In XSTO’ 

60 104555 122 145 ‘Residuel Byte Count Incorrect After Short Record ee 
6037 104643 122 145 ate en ore mk Feiled To Give Tape Stetus Aler 

6038 104731 127 122 ‘WRITE DATA TRY, At First Record, Failed To Set RIB B: t xST3° 
6039 105027 124 123 ‘TSSR Not Correct After SPACE RECORDS Command’ 

6040 105104 124 123 ‘TSSR Not Correct After WRITE DATA RETRY, Into BOT’ 

6041 105166 124 123 ‘TSSR Not Correct After WRITE DATA RETRY Command’ 

6042 105246 104 141 ‘Dete Compare Error, Data Read From Tape Not Equel To Written’ 
6043 105343 106 165 -ASCIZ ‘Function Timing’ 

6044 

6045 

6046 ; 

6047 ;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

6048 ;sWRITE SUBSYSTEM MEMORY COMMAND 

6049 ; 

6050 3: 

6051 

6052 105364 T37REST: 

6053 1053564 SAVREG ;SAVE THE REGISTERS 

6054 105370 012701 102240 MOV @TS7PACKET,R1 ;START OF THE PACKET 

6055 105374 012721 100004 MOV #100004 ,,(R1)->+ ;sWRITE SUBSYSTEM MEM. WITH ACK 
6056 105400 012721 102250 MOV @TS7DATA,C(R1)-> sADDRESS OF CHARAISTICS DATA BLOCK 
6057 105404 5021 CLR CR1)> sEXTENDED ADDRESS 

6058 105406 012721 o0001< MOV #10.,(R1L)- ;SIZE OF DATA BLOCK IN BYTES 
6059 105412 012721 102262 MOV oT37BFR, (R1)- ;ADDRESS OF MESSAGE BUFFER 

6060 105416 005021 CLR C(R1)-> 

6061 105420 012721 000024 MOV @20.,(R1)-+ ;LENGTH OF MESSAGE BUFFER 











TEST 


- HARDWARE TEST 


1 
TEST 9: FUNCTION TIMI 


000000 

30 
177777 
000000 


102350 
100006 
102370 
000006 
102370 


102360 


102262 64%: 


T37RTe2: 


T37RTS: 


Gl 
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-(R2) 


@T37PK2,R1 
#100006 ,(R1)> 


@T37PK3,R1 
CR1)- 
C(R1)- 
CR1)- 

(R11) 

PC 


SEQ 215 


sSELECT ORIVE ZERO 


sNUMBER OF LOCATIONS TO ~ — 


sALL ONES TO MESSAGE BUFFE 
sNEXT LOCATION 

3;AT END OF LOOP YET 
;KEEP GOING UNTIL DONE 
;RE TURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 


;sWRITE SUBSYSTEM MEM. WITH ACK, 


sADDRESS OF DATA BLOCK 
sEX TENDED ADDRESS 
;SIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


;RE TURN 


;SAVE REGISTERS 

;SET UP POINTER ADDRESS 

;COMMAND SPACE 

sADDRESS OF DATA BLOCK 
ADORE 


L10073: 
TRAP 


CseTst 
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; TITLE TSV6 - PARAMETER CODING 
le 
18 
19 105544 BGNMOD TSV6 
- 105544 TSV6:: 
4 .SBTTL HARDWARE PARAMETER CODING SECTION 
23 se 
c4 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
25 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
26 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
e7 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
28 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
3 -_- 
31 105544 BGNHRD 
105544 000010 .WORD L10075-L8SHARD/2 
7 105546 L SHARD: : 
33 105546 GPRMA WHPM1,.0,0,160010,177776,YES ;GET TSBA/TSOB REGISTER ADORESS. 
105546 000051 . WORD TSCODE 
105550 105566 . WORD HPM1 
105552 10 . WORD TSLOLIM 
105554 177776 . WORD TSHILIM 
34 105556 GPRMA HPM2.2.0.0.776, YES ;GET VECTOR ADDRESS. 
105556 0010351 . WORD TSCODE 
105560 105622 . WORD HPMo 
105562 . WORD TSLOLIM 
105564 000776 . WORD TSHILIM 
35 ;GPRMD HPMS,.4,0,340.,0.7.YES ;GET INTERRUPT PRIORITY. 
36 105566 ENOHRO 
.EVEN 
105566 L10075 
37 105566 104 105 126 HPM1: .ASCIZ ‘DEVICE ADDRESS (TSBA/TSDB) ° 
38 105622 111 116 124 HPM2: ASCIZ ‘INTERRUPT VECTOR é' 
= 105646 111 116 124 HPM3: ety ‘INTERRUPT PRIORITY 
Vv 








TSV6 


- PARAMETER 
SOFTWARE PARAMETE 


177777 


R CODING SECTION 


06 -FEB 84 18:04 


Tl 


SEQ 215 
.SBTTL SOFTWARE PARAMETER CODING SECTION 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH sputhalaeate tt cetten 
WITH THE OPERATOR. 


BGNSF T 
-WORD L10076-L8SOFT/2 








LSSOFT:: 
; GPRML SPM1,.0,-1.VYES ; GET TRANSPORT TEST FLAG. 
GPRML SPm4 .2,-1.VYES ; GET ITERATION CONTROL. 
. WORD TSCODE 
. WORD 
. WORD -1 
: GPRMO SPM6.4.0.7777.0.7777, YES ; GET LOCAL ERROR LIMIT 
; GPRMO SPM7.6.0.7777,0,7777. YES ; GET GLOBAL ERROR LIMIT 
ENDSF T 
.EVEN 
L10076: 
SPM1: .ASCIZ ‘ENABLE TRANSPORT TESTS ‘ 
SPM4: -ASCIZ ‘INHIBIT ITERATIONS : 
SPM6 : ASCIZ ‘PER TEST ERROR LIMIT , 
SPM7: ASCIZ ‘PER UNIT ERROR LIMIT ? 
SBTTL PATCH AREA 


® 
; FINALLY A GENEROUS PATCH AREA. 
AND AN ADJUSTMENT TO ACCOUNT FOR my csr BIT7” HACK 


; DESCRIBED IN “SUPPRG.MEM” (FOR RE 
; 


PATCH: : 


; 1 
LASTAD ;SET LAST USED ADDRESS. 


LSLAST::. 
E 
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SYMBOL TABLE 
ADDSSR 012206 
ADR = 000020 
AMBTSS 006715 
ASSEMB= 000010 
A1716 = 000005 
BADDAT 003150 
BADSSR 015760 
BOVPCR= 177520 
BENBSW 002222 
BIE = 040000 
BITO = 000001 
BITOO = 000001 
BITO1L = 000002 
BITO2 = 000004 
BITOS = 000010 
BITO4 = 000020 
BITOS = 000040 
BITO6 = 000100 
BITO7 = 000 
BITOS = 000400 
BITO9 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT1S = 100000 
BIT2 = 000004 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT7 = 000 
BITS = 000400 
BIT9 = 001000 
BOE = 000400 
BRINIT 004453 
BSELO = 

BSEL1 = 

CHKAMB 016124 
CHKMAN 020560 
CHKTSS 016416 
CKDROP 017262 
CKEMAX 017162 
CKMSG 011440 
CKMSG2 011560 
CKRAM 011174 
CKRAM2 011504 
CMDPKT 021340 
CMPMEM 017740 
CONFIG 017350 
COUNT 002302 
CSRADD 002200 
CTAB 3156 
CTABE 003170 
CTABM 003156 


AHOHOOHOHHAHAHHHHHAHAHHGHHHHHHHHHHH Ooog 
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002304 G 


002212 G 


FREEWI 





anno oO 


og 


INCERK 
INTCPC 


SEQ 216 


003120 G 


004115 


017124 
016250 


Oa 


oa 


INTFLA 


3 

: 

~w 
Oogag 


002210 G 


K1 
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SYMBOL TABLE 

LOOPCO 013206 L10001 002170 OSERRT= 000000 
LOOPFL 003154 G L10002 005762 OSGNSW= 000001 
LOT 000010 G L10003 012124 OSPOIN= 000001 
LSACP 002110 G L10004 012142 O8SETU= 000000 
LSAPT 002036 G L10005 012160 PASRPT 022134 
LsAU ©: 022432 G L10006 012166 PATCH 1 G 
LSAUT 002070 G L10007 012 PATOAT 020310 
L$AUTO 022636 G L10010 012222 PC .ERA=’ 002400 
LsccP 106 G L10011 012246 PC. IER= 

LSCLEA 022716 G L10012 012 PC.NOO= 001000 
LsCO 002032 G L10013 012470 PC .REL® 

LSDEPO 002011 G L10014 013204 -REW= 000400 
LSDESC 003402 G L10015 014032 PKBCNT= 000006 
LSDESP 002076 G L10016 014054 PKHI = 000004 
LSDEVP 002060 G L10017 015560 MSGEXP 012224 G PKLOW = 000002 
LSDISP 002124 G L10020 015566 MSGLOO 013144 G PKTAND 007632 
LSOLY 002116 G L10021 015574 MSGSTA 012430 G PKTFRM 007574 
LSO0TP 002040 G L10022 015606 MSG 014022 G PKTGET 012144 G 
LSDTYP 002034 G L10023 015630 PKTMES 012170 G 
Ls0U 022530 G L10024 015656 PKTRAM 004741 G 
LSDUT 002072 G L10025 016016 PKTSSR 012126 G 
LSDvTY 003374 G L10026 016326 PNT = 001000 G 
LSEF 002052 G L10030 022362 PRAMPK 014056 
LSENVI 002044 G L10031 022526 PRASC 014603 
LSETP 002102 G L10032 022634 PRBEXP 015550 
LSEXP1 002046 G L10033 022714 PRB 015416 
LSEXP4 002064 G L10034 022742 PRBREC 015552 
LSEXPS 002066 G L10035 023204 PRBTOT 015503 
L$HARD 105546 G L10036 0327.2 PRBYTE 015202 G 
L$HIME 002120 G L10037 024170 PRI = G 
L$ 002016 G L10040 024712 PRIADD 010236 
LSHPTP 002022 G L10041 025436 PRIAO 010306 

L SH 002150 G L10042 PRIBXO 007670 G 
L$ICP 002103 G L10043 041430 PRIEQU 010136 
L$INIT 021636 G L10044 033734 PRIPKT 007446 
L$LADP 002026 G L10045 035360 PRIRAM 010144 
LSLAST 106404 G L10046 035754 PRITAD 010352 
L$LOAD 002100 G L10047 036440 PRITSS 006020 
L$LUN 002074 G L10050 046766 PRITO 010434 
L$MREV 002050 G L10051 042322 PRIT1 010477 
L$NAME 002000 G L100S2 043134 PRIXOR 010020 G 
LSPRIO 002042 G L10053 053044 NXM = 004000 PRIOO = 000000 G 
L$PROT 021626 G L10054 047642 NXMFLG 003130 G PRIO1 = 000040 G 
LSPRT 002112 G L10055 S2 NXMHI 003134 G PRIO2 = 000100 G 
L $REPP G L10056 051266 NXMLO 003132 G PRIO3 = 000140 G 
LSREV 002010 G L10057 056040 NXMTST 021532 PRIO4 = 000200 G 
L$RPT 022744 G L10060 054506 NXR 003734 PRIOS = 000240 G 
L$SOFT 105700 G L10061 063412 NXRERR 005732 G PRIO6 = 000300 G 
L$SPC 00 G L10062 060476 NXRX 003773 PRIO7 = 000340 G 
L$SPCP 002020 G L10063 073342 NXTU 022102 PRMESS 014322 
LSSPTP 002024 G L10064 064504 OFL = 000100 PRMNO 002312 G 
L$STA 002030 G L10065 065564 ONEFIL= 000000 PRMSGE 014632 G 
LsSw 002160 G L10066 066426 O$SAPTS= 000000 PRMSGO 015012 
LSTEST 002114 G L10067 067330 OsAU = 000001 PRMSG1 015057 
L$TIML 002014 G L10070 101116 O$BGNR= 000001 PRMSG2 015115 
LSUNIT 002012 G L10071 074436 O$BGNS= 000001 PROASC 014500 
L10000 002156 L10072 075520 OsDU = 000001 PRIASC 014545 
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TSEXCP= 
TSFLAG= 


T$$SW = 


~ 
te 
aur LAwhre 


nd 
tw 
dale 2 © 
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026474 
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T318S1 





SY 


T3S2CNT 


051460 
051510 
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M1 


075710 


T378S0 
737891 


102371 
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SYMBOL TABLE 





TS7CNT TS7SSR 105156 XSOFFS= 000400 
TS7CNU 102410 T37SZ 102566 
T37CON 102402 T37S2 4 §=102572 
TS7DAT 250 T37S3 1023574 
T37DLY 102412 TS7TIM 105554 
102 T37T™ 105510 
TS70TA 105246 TS7TRL 1 3 
TS7EOT 10354351 TS7TSA 105104 
TS7LON 104411 TS7VCK 104174 
TS7LO00 101154 T3748 86102562 
TS7LOP 104475 TS7WOC 104121 
T37L0Q 103055 T37WOO 
TS7LOR 102750 TS7WOE 1035172 
TS7NEF 1047351 TS7WOF 1035000 
TS70FL 1035756 TS7WOR 102400 
TS7PAC 102240 TS7WNG 102414 
TS7PBP 104555 TS7WRF 105166 
T3 102350 T37WSS 104522 
TS7PKS 102360 14 046770 G 
TS7RB_ 1023562 T4.1 047020 
TS7RDF 102502 74.2 047660 
TS7RES 105 T4.3 050470 
TS7RN 102376 TS 05 
TS7RNC 103634 TS.1 0535076 
T37RRF 102551 T6 2G 
TS7RT2 105456 T6.1 056072 
TS7RTS 105520 T7 063414 G 
TS7RWN 103565 T7.1 063444 
T37SC 102646 T7.2 064522 KSFALS= 
TS7SCF 105027 ™7.3 065602 


. ABS. 106404 000 oo 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 30328 WORDS ( 119 PAGES) 

DYNAMIC MEMORY: 20614 WORDS ( 79 PAGES) . 
ELAPSED TIME: 00:45:58 

CVTSOB .CVTSOB . SEG/ -SP=SvC/ML, TSV10. TSv22D. 1Sv38.1Sv4,7SV 7B. 'Sv6é 


